ceeeeecin 


EEE HHH NNN NNN GGGGGGGGGGGG 
EEE HHH NNN NNN GGGGGGGGGGGG 
EEE XXX XXX CCC HHH HHH NNN NNN 
EEE XXX XXX CCC HHH HHH NNN NNN GGG 
EEE XXX XXX CCC HHH HHH NNN NN GGG - 
EEE XXX XXX Lcc HHH HHH NNNNNN NNN GGG 
EEE XXX = XXX CCC HHH HHH NNNNNN NNN GGG mM 
EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
EEEEESEEEEEE XXX ccc HHHHHHHHHHHHHHH_ NNN NNN NNN GGG mM 
EEEECEEEEEEE XXX ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG 4 
EEE XXX XXX ccc HHH HHH NNN NNNNNN GGG  GGGGGGGGG a] 
EEE XXX = XXX ccc HH HHH NNN NNNNNN GGG G6GGGGGGGG a 
EEE XXX = XXX CCC HHH HHH NNN NNNNNN GGG 6GGGGGGGGG " 
EEE XXX XXX CCC HHH HHH NNN NNN GGG GGG 0 
EEE XXX XXX CCC HHH HHH NNN NNN 6GG GGG 0 
EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
EEE NNN GGGGGGGGS P 
FEE NNN GGGGGGG4G P| 
EEE NNN GGGGGGGGG . 
P 
P) 


| 
HHH NNN NNN _ GGGGGGGGGGGG | 
GGG 


P| 
P| 
P 
P 
P 
Pp 
P 
P 
P 
R 
R 
R 
R 
R 
R 
R 
$s 
Ss 


*eF I LE**1D*#EXCCOPY 
EEEEEEEEEE Xx XX cccccccc cccccccc 000000 PPPPPPPP YY YY 
EEEEEEEEEE Xx XX ceccccce ccecccccc 060600 PPPPPPPP YY YY 
EE Xx Xx CC cc 00 00 PP PP YY YY 
EE Xx Xx CC cc 00 00 PP PP YY YY 
EE XX = XX cc cc 00 00 PP PP YY YY 
EE XX XX cc cc 00 0O PP PP a 
EEEEEEEE XX cc cc 00 00 PPPPPPPP YY 
EEEEEEEE Xx cc cc 00 00 PPPPPPPP YY 
EE XX = XX cc cc 00 00 PP YY 
EE XX XX cc cc 00 CO PP YY 
EE XX Xx CC cc 00 00 PP YY cove 
EE XX Xx CC cc 00 00 PP YY cove 
EEEEEEEEEE Xx XX cccccccc ccccccce 000000 PP YY oes 
EEEEEEEEEE Xx XX cccccccc ccccccce 000000 PP YY coe 
LL III! SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III! SSSSSSSS 
LLLLLLLLLL IIIT] SSSSSSSS 
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16-Sep-1984 00:41:4 AX-11 Bliss-32 V4.0-7 

3 “Sep ats hi Bot bas8 LEXCHNG SRCTEXCCOPY. as3e 1 
MODULE enescepy ZTITLE ‘copy verb dispatch and misc routines’ 


IDENT = ‘V04-000' 
oneneaen pee (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
BEGIN 


VR R RARER AAA AE AAAS 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS i terie WS Al UNDER A LICENSE AND MAY BE USED AND gt 
: RDANCE WITH T TER F SUCH LICEN AN 


: ROV 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
'® TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= eRPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ix DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


@aeneneneneeneneenenennennnannne 


PITITITITITILIILILITLILLILLL LL T LiL Li ili iii itil 


1o¢ 


Return file-not-found correct’ in copy loop. Modi ty TYPE 
a 


output routine for eight-bit character set. 


FACILITY: EXCHANGE - Foreign volume interchange facility 

ABSTRACT: Primary action routines for copy verb 

ENVIRONMENT: VAK/VMS User mode 

AUTHOR: Cw Hobbs CREATION DATE: 22-Oct-1982 

MODIFIED BY: 

v03-002 CwH3002 CW Hobbs 12-Apr-84 
i 

i 

i 

ie 


a Include files: 


MACRO $module _name string = ‘exch$copy’ 2%; 
REQUIRE *SRCSZEXCREQ' 


! The require file needs to know our module name 
! Facility-wide require file 
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copy verb dispatch and misc routines i§-$e 1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 2 
Module table of contents 7300-1384 10 bai8s LEXCHNG SRC EXCCOPY.B32;1 . (2) 
; 2 4 9 } ZSBTTL ‘Module table of contents’ 
; 3 ¢ 1 ! Module table of contents: 
; 1 1; 
4 4 1 FORWARD ROUTINE 
; 60 155 1 exch$copy_copy. ! Main action routine for COPY verb 
. 0156 1 copy_init : NOVALUE, ! Inits common to COPY and TYPE 
; 6¢ 0157 1 copy_input_close : NOVALUE, ' Close the input file 
; 0158 1 copy_input_open ! Open the input file 
; 664 0159 1 exch$copy_namb_to_filb : NOVALUE, : Copy fields from namb to the filb 
; 6 0160 1 copy_output_cleanup : NOVALUE, ' Release structures and clean up output 
; ¢ 813 1 copy_output_close, ! Close the output file 
3 ¢ 196 1 copy_output_create, ! Create the output file 
; @& 0165 1 copy_output_delete : NOVALUE, ! Delete the output file after error 
; ww 0164 1 copy_parse_cleanup : NOVALUE, ! Release structures and clean up after parse 
; 0165 1 copy_parse_next_input, ! Fetch and expand next ineus parameter 
ae a 0166 1 exch$copy_type, ! Main action routine for TYPE verb 
; f ah e4 ! copy_type_print : NOVALUE ! Reformat and print Lines on SYSSOUTPUT 
; gp 0169 1 
rs 0170 1 ! EXCHANGE facility routines 
; 0171 1! 
“pet ey HE 1 EXTERNAL ROUTINE 
; 01735 «1 exch$cmd_cli_get_integer, ! Get an integer value 
; 0174 #1 exch$cmd_parse_filespec, ! Parse a file specification 
; 80 0175 (1 exch$dosTl_create_file, ! Create and connect to a DOS-11 file 
; 8 0176 1 exch$dos11_open_file ! Connect to a DOS-11 file 
3; 82 0177 1 exch$fill1_create file, ! Create and connect to an RMS file 
‘oa. 0178 1 exch$filll_open_file, ! Connect to an RMS file 
> 84 0179 1 exch$moun_implied_mount, ! Do a default mount . 
; 0180 1 exch$rt11_create_Tile, ! Create and connect to an RT11 file 
; ©6886 0181 1 exch$rt11_open_file, ' Connect an RT11 file 
; oF 0182 1 exch$rt11_write_cleanup : NOVALUE, ' Complete writing to an RT-11 volume 
; 688 0183 1 exch$rt11l_write_prepare : NOVALUE, ! Prepare to write to an RT-11 volume 
: 0184 1 exch$util_doslictx_release : NOVALUE, ! Release dos-11 block 
; 90 0185 1 exch$util_fao_buffer, ! Format an fao string 
; WW 0186 1 exch$util_filB_allocate, ' Allocate file context block 
;- = 0187 1 exch$util_filb_release : NOVALUE, ! Release file context block 
: = 0188 1 exch$util_file_error, ' Tell about an rms error 
; «94 0189 1 exch$util_namb_release : NOVALUE, ! Release name block 
; 0190 1 exch$util_rmsb_allocate, ' Allocate Files-11 control block 
; 0191 «#1 exch$util_rmsb_release : NOVALUE, ' Release Files-11 bloc 
5; WT b138 1 exch$util_rtiictx_allocate, ! Allocate RT-11 context block 
; 3 B13 1 exch$util_rtiictx_release : NOVALUE, ! Release RT-11 block 
; WF 194 1 exch$util_vm_allocate ! Allocate virtual memory 
; 100 0195 1 : 
; WT B198 1 
3 106 0197 1 ! Equated symbols: 
; Ww 0198 1! 
: 104 aha 1 !LITERAL 
; 105 4 1: 3 
; 106 0201 1 
; ter 0 4 1 ! Bound declarations: 
: 108 os YF 
: 109 04 1 D : 
: 110 0205 1 ascid_allocation = ZASCID ‘ALLOCATION’, ! Save some space, these strings used more than once 
: 111 0206 1 ascid_best_try = ZASCID "BEST_TRY_CONTIGUOUS', 
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copy verb dispatch and misc routines IBeSe 1984 00:41:4 AX-11 Bliss-32 V4.0-742 P 4 
exchScopy copy ~Sep-19 4 $3 rba8s LEXCHNG.SROTEXCCOPY.B32.1 — (3) 


5 1 ROUTINE exch$copy_copy = %SBTTL ‘exch$copy_copy' 


oO 
= 
= 


++ 
FUNCTIONAL DESCRIPTION: 
Action routine for the copy verb, parses and performs main control functions for copy 
INPUTS: 
none 
IMPLICIT INPUTS: 


a et ee a 
Ft" OOONOUS wr 


Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$. 
OUTPUTS: | 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 
Files may be created. 


LOCAL 
' Pointer to work area 


protect, 
prs_stat, 
status 
Allocate and/or initialize the work area 
copy_init (); 
: Get pointers that we need. Have to wait until work area is allocated by init call 


copy = -exch$a_gbl Cexcg$a_copy_work); ! Pointer to work area 


POPSPOPIAIPOPIPIPIPIPIPIPYPINIPIPYNIPYININININININIPYNIPYNIPUPOPONOPUNoNoPoNonorny 


2 
2 
2 
: $dbgtrc_prefix ("copy_copy> '); 
2 


COOOOOOOOCOSOSOSOOSOOSOCOSSOSOOCOOSSOOOOSCOCOSCOOSOOCOOOOOCOOOOCOOOOOOOOoOO 


‘ Init the name used for the input file default. As long as it is null we can also use it for output defaul 


copy copy 


[=] 
oOo 


ooood ek ok oh ob ele -] 0900 COCO COCO NI NIN SI 
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verb dispatch and misc routines * 1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 5. 
: ig Sep-1984 99: :04:5 EXCHNG.SRCJEXCCOPY.832;1 . (3). 


str$copy_dx (copy Ccopy$q_input_sticky_name], %ASCID ''); 


! Get the oo and the namb for the output filename. By fetching this parameter, we will pick up position 
qualifiers attached to the second parameter. 


if NOT (status = sta a ale ay (ZASCID ‘OUTPUT, ¢ Opy Ccopy$q_ = input. sticky_name], 0, 
copy Lcopy$q_output_ tilenam out_nam 


EN 
$exch 7S i9nal. return (exch$_ sbarseerty, | ¢.fOPY Ccopy$a_o output_filename], status); 


ye print_fao (' output parameter is Copy eters q_output_ filename 

copy [Copy$a_out_namb] = .out_namb; ave the address of the naab in the work area | 

: Get the default set of boolean qualifiers, note that we treat positionals on the second parameter as globa 

copy copy$v_q_best sty. eget iquanss = cli$present (ascid_best_try); ! positional 

copy Ccopy$v_ - =gontt guo us = cli$present (ascid econti uous) ; ! positional 

copy Ccopy$v_q_delete = cli$present (ZASCIB 'DELETE') ! positional 

copy Ccopy$v_q_replace) = cli$present (ZASCID ‘REP LACE’ 5; ! ore rerenes 

copy Ccopy$v_q_system) = cli$present (ZASCID ‘SYSTEM! ); ' glo 

copy Ccopy$v_q_truncate] = cli$present (ascid_truncate); ! coeitionel 

For /PROTECT, we need to know whether it was specified or defaulted 

protect = Agrgtes = (ZASCID hor ye a3 | 

copy Ecopyév_ q_protect] = t; ! Simply value of low bit 

copy Ccopy$v_q_protect_explicit] = arene EQL cli$ preeer*? ! Either /PROTECT or /NOPROT 
OR (.protect EGL cli$_negated)); ! must be there 


Get individual integer-valued qualifiers, routine signals on errors. If the qualifier is not present, 0 i 
in the second parameter and -1 (success) is returned as the routine value. Here we also treat positionals | 
second parameter as globals. 


! 
i 
i 
i 
if NOT (status = exch$cmd_cli_get_integer (ascid_allocation, copy Ccopy$l_q_allocation])) 


oaehbuttt namb_release (.out_namb); 
AS .Status; 


gs (status = exch$cmd_cli_get_integer (ascid_extension, copy Ccopy$l_q_extension])) 


BEGIN 
exch$util_namb_release (.out_namb); 
RETURN .status; 


Ag (status = exch$cmd_cli_get_integer (ZASCID ‘START_BLOCK', copy Ccopy$l_q_start_block])) 


BEGIN 
exch$util_namb_release (.out_namb); 
oe Tune .status; 


: If a foreign device is not mounted, then perform an implied mount 
IF aw -out_namb Cnamb$a_assoc_volb] EQL 0) 
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EXCCOPY.B32;1 


Cnamb$l_fabdev 
OR (NOT (.dev 
D 
((,out_namb Cnamb$b_devclass] EQL dc$_disk) 
(.out_namb Cnamb$b_devclass] EQL dc$_tape)) 


c—" (status = exch$moun_implied_mount (.out_namb)) 


BEGIN 
oecneuets namb_release (.out_namb); 


If the device has a volb, make sure that the volb is valid and that write access is permitted. 
if (.out_namb Cnamb$a_assoc_volb] NEQ 0) 
THEN 


volb = out_namb Cnamb$a_assoc_volb] : $ref_bblock; 
We should now have a valid volb, but we still should check 
$block_check (2, .volb, volb, 496); 
Make certain that write access is permitted 
IF NOT .volb Cvolb$v_write] 
THEN 
ack af nal (exch$_nocoplock, 2, .volb Cvolb$l_vol_ident_len], volb Cvolb$t_vol_ident]); 


exchSutil_namb_release (.out_namb); 
—— exch$_nocoplock; 


tee ete Cvolb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 


Cvolb$k_vfmt_rt11) : 

BEGIN 

zt pom Cnamb$v_bad_pdp_char] 
gout_neme Cnamb$v_rt_truncate] 


GIN 
$exch_signal (exch$_badfilena 3, out_namb Cnamb$q_input 
0 vol_type_len], volB Cvol 

exch$util_namb_release (.out_nambJ; 


RETURN exch$_badfilename; 
END; 


) 
b$t_vol_type]) 
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exch$copy_copy ep-19 EXCHNG.SRCJEXCCOPY.B32; 1 (3) 
: see 0 B¢ 4 guchSretl_write_prepere (.volb); ! Do sundries necessary before we start copy 
: 290 0 bs ; ; 
; ei 5 Cvolb$k_vfmt_dos11] : 
; 29 0 Hy 4 BEGIN 
: st 8 ti ; a gout anane Cnamb$v_bad_pdp_char] 
; B2 8 8 ? jout_namb Cnamb$v_dos_truncate] 
: $86 p 0302 8 Sesch_signal (exch$_badfil 3, out_namb Cnamb$q_ input) 
; exch signal (exch$_ba ename, 3, out_namb Cnam nput 
: 44 0398 2 .volb Lvolb$l vol_type_len], volB Cvolb$t_vol_typel); 
; 300 0394 exch$util_namb_release (.out_nambJ; 
s gol 0395 5 RETURN exch$_badfilename; 
: 308 0396 4 END; 
; 0397 END; 
; 304 0398 
; 302 O78 CINRANGE, OUTRANGE) : Pail a he 
; ° : No t t 
3s Jor 0401 TES; ge sation rae pm nt 
a2 tego 
: 316 Bebe Allocate a file block to contain the output file information | 
: 312 0406 é out_filb = exch$util_filb_allocate (); | 
3 als 0407 copy Ccopy$a_out_filbJ = Tout_ : ! Save the address cf the filb in the work area 
‘ 318 Bebe exch$copy_namb_to_filb (.out_namb, .out_filb); ! Move some data from ene namb to the filb 
: 316 0410 
.. aa 0411 ! Loop through the List of input file specifications. Errors will be signalled. If an error occurs the cur 
: 318 pals } input element is skipped and processing continues with the next input item. 
: 320 0414 2 abort = false; 
3 6Sel 0415 status = ss$_normal; 
3 356 0416 WHILE (prs_stat = copy_parse_next_input ()) ! Get next input file parameter 
: i 0417 ¢ dO 
3; 324 0418 BEGIN 
3 $52 0419 LOCAL | 
3 $59 ace ino_stat; 
; 328 Be $ inp_filb = .copy Ccopy$a_inp_filb]; ! Grab the pointer to the input filb 
; 380 8 Check for some invalid naming conditions 
; 33 ss IF yt COPY Ccopy$v_multiple_files) ! If the input could map multiple files 
; 334 0428 4 BEGIN 
3 339 0429 4 - 
§ $ 9480 ? Complain if the output file name is explicitly a single file name 
; 6 ah) g if NOT ¢ (,out_namb Cnamb$v_wildcard)) ! A wildcard will help us out 
; ° O¢ : g (NOT .out_namb Cnamb$v_explicit_name]) ! A missing name will work 
: o¢ 043 g (NOT .out_namb Cnamb$v_explicit_type]) ! A missing type can also map multip | 
i 344 0038 4 THEN 


PARANA UIUIII LE 
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K 16 

copy verb dispatch and misc routines 16-Sep-1984 00:41:48 
exch$copy_copy 5-Sep-1984 22:04:55 
0439 BEGIN 
0440 status = exch$_many_to_one; 

ere pag cage peas eh 

co arse_cleanu : 

044 3 EXT TCOOP; = : 

piee 4 END; 

445 4 
oaay 
0448 4 iF COPY Ccopy$l_q_start_block] NEQ 0 
Bead 2 BEGIN 

451 status = exch$_strtnomulti; 

BO 38 5 $exch_signal (.status); 

0453 5 sony perse,¢leanup (); 

0454 5 EXITCOOP; 

0455 4 END; 
0456 3 END; 


VAX-11 Bliss-32 V4.0-742 
CEXCHNG.SRCJEXCCOPY.832;1 


Also complain if /START_BLOCK has been requested, since it is hard to put several files on the sam 


16 
verb dispatch and misc routi I§-§ -1984 41:4 Ax-11 iss- 4.0-74 
p routines ep ! 4 90a 88 vA Bliss-32 V4.0-742 


copy copy 


WA te eet PPR PENROSE S 


Wr Doo NO MP DOS UNIO Dee 


WANNA ANANSI 


8335 


WNWANWANA 
ooo 


SAR 


SLESE 


33s 
WD C909 G9 09 SINS SID DS DDS DD DO DIDS IDS ITT ES BB BEEP PUNE PPLE 


. 
€ 
. 
. 
a 
° 
. 
6 
. 
o 
~ 
e 
. 
° 
+ 
° 
. 
° 
. 
° 
. 
° 
+ 
e 
* 
e 
. 
° 
. 
o 
° 
° 
* 
e 
. 
° 
o 
a 
os 
° 
. 
e 
o 
e 
. 
oe 
7 
. 
. 
e 
. 
e 
. 
o 
° 
o 
* 
e 
. 
e 
. 
° 
. 
° 
a 
e 
o 
e 
. 
e 
7 
e 
7 
a 
o 
. 
e 
oT 
e 
* 
e 
o 
e 
. 
e 
. 
e 
. 
° 
. 
° 
. 
e 
. 
° 
° 
e 
. 
oO 
. 
e 
. 
e 
© 
e 
© 
e 
. 
. 
e 
. 
o 


SEER LL LL LLL LLL 
SOooooooooooooeo 
PAAAAMAA AMI 
Wwr—OOo Mewrn— 


Ne ee ee 
SOONOUS WN oO 


XCHNG.SRCJEXCCOPY.B32;1 
WHILE 1 
dO 

BEGIN 

If a control/c is pending, don't bother with opening another file 

iF .exch$a_gbl Cexcg$v_control_c] 

THEN 


BEGIN 

ino_stat = exch$_canceled; 

Sexch_signal (Sinfo_stat_copy (.ino_stat)); 

ino_stat = copy_input_open (); ! Open the input file, loop for wildcards 


Remember if this is a reopen, and clear the reopen flag 


copy pcopy$v_reopen_in.progress) = .copy Ccopy$v_reopen_input]; 
copy Lcopy$v_reopen_input] = false; ! Clear any possible retry 


IF .ino_stat 
THEN 
BEGIN 
LOCAL 
cre_stat, 
rec_count; 
Now create the file and copy the records 
IF (crestat = copy_output_create ()) ! Open the output file 
BEGIN 
LOCAL 
getput_err, 
cop_stat, 
get_stat, 
put_stat; 
} While we can get records move them to the output 
rec_count = put_stat = getput_err = 0; paw 
WAICE (get_stat = (.inp_filb Cfilb$a_get_routine]) (.inp_filb)) 
BEGIN - : 
IF NOT (put stat = (.out_filb Cfilb$a_put_routine]) ()) THEN EXITLOOP; 
rec_count = .rec_count + 1; 
: If we have seen control/c, exit the loop with a canceled error 


iF exchSa_gbl Cexcg$v_control_c] 


N 

BEGIN 

put_stat = exch$_canceled; 

lent Stanel titiniia stat_copy (.put_stat)) 
exc -pu ; 
EXITLOOP® “y vn = 
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EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 10 
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> 421 0514 6 END; 

3 4 ¢ gy8 6 

3 : ? b218 6 $Strace_print_fao (‘status !XL, get_stat !XL, put_stat !XL', .status, .get_stat, .put_stat); 
3 425 0518 : IF (NOT .get_stat) AND (.get_stat NEQ 0) 

; 426 b248 § THEN 

; 427 520 BEGIN 

: 428 0521 7 status = .get_stat; 

: 429 05 ¢ 7 petout_err = frue; 

: 23 b85¢ nes 

3 $38 0525 7 IF (NOT .put stat) AND (.put_stat NEQ 0) 

3 4 0526 6 THEN 

> 434 0527 7 BEGIN 

: 435 0528 7 status = .put_stat; 

: 4 0529 7 petout.ort = true; 

: 438 Ost ee 

3 $23 6236 ? If we have an error before any records are transferred, try to delete the file 

: 441 0534 6 IF NOT .out_filb Cfilb$v_file_erased) ! Output file is still valid 

: 44 0535 6 THEN 

> 44 0536 7 BEGIN 

> 444 0537 7 IF .getput_err ! If we had an error during our get or put a 
3; 445 0538 7 AND ! either have transferred no records or we | 
> 446 0539 9 ((.rec_count EQL 0) ! delete a previous version during close. 

3; 447 0540 8 : ! mot want to delete the previous copy of t 
3; 448 0541 9 (.out_filb Cfilb$v_delete_previous]) ! if there was an error in the transfer. 
> 449 b2¢§ 8 ! We also want to delete the output file if 
; 450 0545 8 (.exch$a_gbl Cexcg$v_control_c])) ! command was canceled. 

> 451 0544 7 HEN 
: $38 0545 8 BEGIN 
; 45 0546 8 copy_output_delete (); : Delete the output file if supported for th 
> 454 0547 8 rec_count = 0; ! Make sure we get ‘'NOTCOPIED’’ message 

; 455 0548 8 END 

; 456 0549 8 r 

: 457 0550 8 ! Close the ouput file 

; 458 0551 8 : 

3; 459 8236 7 ELSE 

; 460 0555 8 BEGIN 

; 461 0554 8 LOCAL 

: re 0555 8 cls_stat; 

: 46 0556 8 cls_stat = copy_output_close (); ' Close the output file, clean up 

> 464 0557 4 $trace_print_fao (‘status !XL, cls_stat !XL", .status, .cls_stat); 

: 465 0558 IF NOT .cls_stat 

; 466 0559 8 THEN 

: 467 0560 9 BEGIN 

; 468 561 9 status = .cls_stat; 

: 469 206 3 getput_err = true; 

: 470 565 8 ND; 

3; «471 564 7 END; 

; rth 39? 6 END; 

> 474 O36? 6 ! If the file has been erased, set record count to zero, The file might have been erased be 
3 og? b2e8 e of an I/0 error during close, therefore we must do this here. 

: 47 0890 6 if .out_filb Cfilb$v_file_erased) 
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THEN | 
| 


| 


- 
~ 
i 
ww 
— 
— 
NO 


47 BEGIN 
rec.count = 0; 
out -filb CfilbSv_file_erased] = false; 


Set the cop_stat if we need to signal 


cop_stat = 0; ! Start by assuming no signal 
A atntascttel ! We had an error which might have caused a partial copy 


BEGIN 

ee a catmaatts EQL 0 ! No recs will get the NOTCOPIED message | 
| 
| 


—OOONOUS wT 


cop_stat = exch$_notcopied 
cop_stat = exch$_partcopied; 
END F - 
ELSE 


IF ier Cfilb$v_name_change] ! If the name has changed 


at -copy Ccopy$v_q_nolog_explicit] ! But not if /NOLOG was seen 


THE 
cop_stat =_exch$_copnewname 
Ht ELSE 1 a Ccopy$v_q_log] ! /LOG is in effect 


~ 
oO oO 
“ 

polo loleleloleleleleloleleleloleloleleolelelelelelelojleol a= 
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-copy Ccopy$v_reopen_in_progress] ! Or we have successfully retried the operat 


COOOOOOOOOO@MMWMWoc SN 
Ss o 0000 00 Ste whet 4 


cop_stat = exch$_copied; 
END; 


} If we are going to retry, give that signal 


So 
oO 


ERESSSOSSOS 
banana aka 
—OOONOuUsS 


IF copy Ccopy$v_reopen_input] 
cop_stat = exch$_notcop_retry; 
If the command was canceled at the keyboard, then do not signal 
iF .exch$a_gbl Cexcg$v_control_c] 
THEN 
cop_stat = 0; 


=i 
owns 


Now, if we have a status do the signal 
IF .cop_stat NEQ 0 
THEN 


BEGIN | 
LOCAL | 
b_or_r; = ; 
b_or_r ="(iF ((.out_filb Cfil 
AND (.out_fil 

OR . ; 

(.out_filb Cfi 

OR .inp_filb 
THEN ZASCID “block 


ormat) EQL filb$Sk_rfmt_fixed) 
ixed_len] EQL 5127) 


f 
f 
fer_mode) EQL filb$k_xfrm_block 
a 
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nster_mode) EQL filB$k_xfrm_block) 
ID ‘record'); 
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5 P 0628 7 $Sexch_signal (.cop_stat, 6, 
P 0629 7 -inp_filb bt] ERE t result name. tend. inp_filb bt] BSt.resutt_nene | 
7? P 0630 7 -out_filb Cfilb$l_result_name_lenJ, out_filb Cfilb$t_result_name. 
8 0631 7 -rec_count, .b_or_r); 
9 06 ¢ 6 END; 
40 06 6 END 
541 0634 6 
2 Be 2 ? } Able to open input, but not output. Give the ‘File not copied’ message 
544 0637 § ELSE 
et? 0638 6 BEGIN 
m4 P 0639 6 $Sexch_signal (exch$_notcopied, 4, .inp_filb Cfilb$l_result_name Len] inp_filb Cfilb$t_resul | 
54 0640 6 -out_filb Cfilb$l_fesult_name_lén], out_filB Cfilb$t_fesult_name],~.cre_| 
548 0641 6 $trace_print_fao (‘status !XL, cre stat !XL", .status, .cre_stat); 
ee8 ak ? status = .cre_stat; 
551 0644 6 ! Some errors should terminate the command, for example if the directory has overflowed ther. 
e2g Beek ? } no hope of accomplishing anything useful in this command. 
554 0647 6 SELECTONE .cre_stat OF 
555 0648 6 SET 
556 0649 6 CO, exch$_rtll_overflow, exch$_volume_full, exch$_volume_full, exch$_nocopsamdev, 
557 0650 6 exch$_illmtcopy, rms$_dev]°: | 
558 6651 6 abort = true; 
559 0652 6 COTHERWISE) : 
560 0653 6 : 
561 0654 6 TES; 
562 0655 6 | 
563 0656 5 END; 
564 0657 5 
565 0658 5 copy_input_close (); 
566 0659 5 IF .abort THEN EXITLOOP; 
567 0$60 5 END 
568 0661 5 
569 po6¢ 5 ! We got an error from the input_open, but we aren't done yet 
570 0663 5 : 
571 0664 4 ELSE 
37 0665 5 BEGIN 
57 0666 5 $trace_print_fao (‘status !XL, ino_stat !XL", .status, .ino_stat); 
574 0667 5 : 
575 0668 5 IF .ino_stat EQL 0 
576 0669 5 
577 0670 5 -exch$a_gbl Cexcg$v_control_c] 
578 bers : 
579 67 EXITLOOP 
580 0673 5 
581 0674 6 BEGIN 
266 0675 6 status = .ino_stat; : 
2B2 Bere ? SELECTONE .ino_stat OF ! Some errors call for leaving the loop 
28) 78 6 Crms$_fnf, rms$_dev] : 
86 0679 6 OoP; 
587 0680 6 COTHERWISE) : ! Continue to try for all other errors 
588 ee 6 : 
589 ¢ g TES; 
590 068 END; 
591 0684 5§ 
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; FF 0685 4 END; 

; rt, Oe $ END; 
t 595 688 copy_parse_cleanup (); ! Release namb, clean up after parse 
E596 0689 IF Sbort THEN EX1TLOOP; £ r 
is 39 0690 END; 
'; «64598 0691 

3 44 809 If we had an unusual return from copy_parse_input then use that as the final status 

: 601 0694 $trace print_fao (‘status !XL, prs_stat !XL', .status, .prs_stat); 
3 e's 9044 IF (NOT .prs_stat) AND (.prs_stat NEQ 0) THEN status = .prs_stat; 

: 604 0697 ' Clean up the structures associated with the output file 

: $08 $699 : tput_cl Q 

3 co n : 

: 607 0700 eee 

; 608 0701 2 $trace_print_fao ("status !XL (exit)', .status); 

; 609 BOs 2 RETURN .status; 

; 610 0705 1 END; 


-TITLE EXCHSCOPY copy verb dispatch and misc routines 
-IDENT \V04-000\ 


-PSECT EXCHSCOPY_PLIT,NOWRT,2 
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| 
| 
» 49 56 GE GF 43 SF 59 52 54 SF 5 
| 
| 
| 


| 

| 

| 

00 00 4 4F 49 54 41 43 GF 4C 4C 41 00000 P.AAB: .ASCII \ALLOCATION\<0><0> : | 

O10EO00A OO00C P.AAA: ‘LONG 17694730 : | 
00000000" 00010 -ADDRESS P.AAB ; 

4 53 45 42 00014 P.AAD: .ASCII \BEST_TRY_CONTIGUOUS\<0> : | 
00 53 55 4F 55 00023 ; 

010E0013 00028 P.AAC: .LONG 17694739 ee 

00000009" 900¢¢ -ADDRESS P.AAD : | 

00 00 53 55 4F 55 47 49 54 4E GF 43 00030 P.AMF: ASCII \CONTIGUOUS\<0><0> : | 

O10EQO0A OCO3C P.AAE: .LONG 17694730 : | 

| 00000000" 00040 ~AD P.AAF ; | 

00 00 OU 4E 4F 49 53 4E 45 54. 5843 00064 P.AAH: ASCII \EXTENSION\<0><0><0> : | 

010E0009 00050 P.AAG: <LONG 17694729 ; | 

00000000" 00054 -ADDRESS P.AAH ; | 

45 54 41 43 4E 55 52 54 00058 P.AAJ: ASCII \TRUNCATE\ : | 

010E0008 00060 P.AAI: .LONG 17694728 : | 

00000000" 00064 ADDRESS P.AAJ ; 

0068 P.AAL: .B ; | 

0100000, 00068 P.AAK: LONG 17694720 3 | 

00990000" 9006¢ -ADDRESS P.AAL ; | 

00 00 54 55 50 54 4F 00070 P.AAN: ASCII \QUTPUT\<0><0> : | 

010E0006 00078 P.AAM: LONG 17694726 ; | 

00090000" 9907¢ -ADDRESS P.AAN : 

00 00 45 54 45 4C 45 44 00080 P.aAP: ASCII \DELETE\<O><0> ; | 

010E0006 00088 P.AAO: LONG 17694726 : | 
00090009" 9908¢ -ADDRESS P. AAP : 

00 45 43 41 4C 50 4 O90 P.AAR: ASCII \REPLACE\<O> : | 

010E0007 00098 P.AAG: .LONG 1769472 : | 
| 00990009" 9999¢ -ADDRESS P.AAR : 
| 00 00 4D 45 54 53 3 AD B.AAT: ASCII \SYSTEM\<O><0> : 
| 01060006 OOOAB P.AAS: «LONG 17694726 ; 
00000000" O00aC ADDRESS P.AAT ; 
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00 54 43 45 54 4F 52 29 OOBO P.AAV ASCII \PROTEST\<0> 3 
0096000 Boose MUS “ADDRESS PeAAV 
00 48 43 4F 4C 42 SF 54 52 41 4 99 ita P.AAX: .ASCII \START_BLOCK\<0> : 
010E000 pace P.AAW: .LONG 17694731 : 
00000000' 380 ADDRESS P.AAX : 
00 00 00 6B 63 6F Be 6 0D4 P.AAZ: .ASCII \block\<0><0><0> : 
of 000 pn0E P.AAY: N 17694725 : 
00 voy" OOE ADDRESS P.AAZ 3 
00 00 64 72 6F 63 65 7 QOE4 P.ABB: .ASCII \eecorg)<0><0> : 
010E0006 OOOEC P.ABA: .LONG 176947 j 
00000000" O00FO -ADDRESS P.ABB 3 


LLOCATION= P.AAA 
T TRY= P.AAC 
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NCELED, TEXCHS -NOTCOPIED 


OPIED 


PNEW NAME 
ae cnr LOU NOTCOP_RETRY 
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v04-000 exchScopy copy g ety 7 $8 bars EXCHNG. SRCJEXCCOPY.. 8536 1 ’ (4). v04 

.PSECT EXCHSCOPY_CODE,NOWRT,2 | : 

OFFC 00000 ENTRY EXCHSCOPY. COPY, Save R2,R3,R4,R5,R6,R7,R8,- ; 0211 : 

5E 18 C2 00002 SUBL2 a3h, § ; | ; 

o000v CF 00 FB 9000 CALLS #0, COPY_INIT ; 0260 : 

50 000000006 EF DO 0000A MOVL  EXCHSA_ GBL RO > 0264 | ; 

55 06 AO D0 90011 MOVL  4(RO), “COPY : | ; 

0000" CF 9F 00015 PUSHAB P.AAK~ 0268 | ; 

1¢ AS 9F 00019 PUSHAB 28(COPY ; : 

000000006 00 02 FB 9001¢ CALLS. #2, STRSCOPY_DX : | : 

16 AE oF 900¢ PUSHAB out NAMB : 0274 | ; 

14 AS 9F 00026 USHAB 20(TOPY) : | : 

7E D4 00029 LRL = (SP) : : 

1¢ AS 9F 00028 PUSHAB 28(COPY) : 0273 : 

0000' CF 9F 000 : PUSHAB P.AAM : : 

000000006 EF 05 FB 000 CALLS #5, EXCHSCMD_PARSE_FILESPEC ; 0274 | : 

58 50 D0 00039 MOVL RO, STA ; : 

1B 58 €8 0003C BLBS = STATUS, ; | : 

52 000000006 BF DO 0003F MOVL § WEXCHS$_PARSEERR, TEMP ; 0276 | : 

58 DD 00046 PUSHL STATUS~ : | : 

14 AS 9F 00048 PUSHAB 20(COPY) : | : 

01 DD 00048 PUSHL #1 : | : 

52 DD 0004D PUSHL TEM : | ; 

000000006 00 04 FB O004F CALLS #4, LIBSSIGNAL ; | : 

50 52 00 00056 MOVL TEMP, RO 3 é 

04 00059 RET : | : 

54 14 AE DO 0005A 18: MOVL T_N ; 0278 | : 

48 AS 54 D0 0005E MOVL R4,~72(COPY) ; | : 

59 30 AS 9E 00062 MOVAB 48(COPY), R9 ; 0282 : 

0000" CF 9F 00066 PUSHAB ASCID_BE ; : 

000000006 00 01 FB 0006A CALLS #1, CCISPRESENT 3 : 

69 01 00 50 FO 00071 INSV. RO, #0, (R9) ; | : 

0000' CF 9F 00076 PUSHAB ASCID tol {cuous ; 0283 : 

000000006 00 01 FB OOO7A CALLS #1, CCISPRESENT ; | : 

69 01 01 50 FO 00081 INSV RO, M1, #1, ; | ; 

0000' CF 9F 00086 PUSHAB P.AAO : 0284. : 

000000006 00 01 F8 O008A CALLS #i, CLISPRESENT ; | : 

69 01 02 50 FG 00091 INSV. RO, #2, #1, (R9) : : 
0000" CF 9F 60096 PUSHAB P, ; 0285 | 

000000006 00 01 FB OOO9A CALLS At CLISPRESENT ; | ‘ 

69 01 67 50 FO OO0A1 INSV (R9) : | : 
0000" CF 9F 000A6 PUISHAB pas ; 0286 | : 

000000006 00 Oi FB OOOAA CALLS #1, CLISPRESENT ; | : 

69 01 09 0 FO 00081 INSV (R9) ; | : 
0000" CF 9F 000B6 PUSNAB ASCID TRUNCATE : 0287 | ; 
000000006 00 O1 FB OOOBA CALLS #1, CCISPRESENT ; : 
69 01 OA 50 FO 000C1 INSV RO; #10, #1, (ROD ; : 
0000' CF 9F 000C6 PUSHAB P. AAU ; 0291 ; 
000000006 00 01 FB OOCA CALLS CLISPR SENT ; : 
69 01 05 50 FO 00001 INSV aa , #1, (RO) 3 0292, : 
52 D4 00006 CLRL ‘ ; 0293 | ¢ 
000000006 8F 50 01 0008 CMPL = PROTECT, #CLIS_PRESENT hs | : 
oS fe oo, ESS ghee 4 

51 04 Ode 2% CLRL RI : 0294 | ; 
000000006 8F 50 D1 000E CMPL = PROTECT, #CLIS_NEGATED : | ; 
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EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 241:4 AX-11 Bliss-32 V4.0-742 Page 17. EX( 
peers exchScopy copy o23ee 18 4 $0r0u.$8 LEXCHNG SRE EXCCOPY.832;1 (4) | v4 
| 19 6E AS £8 001C2 10$: BLBS  110(R4), 138 : 0372 | ; 
14 6— AG 0¢ 3 0166 BBS e 110¢R4), 13$ : Oa : 
DD 001¢B PUSHL R ; 0382 | : 
000000006 EF 01 FB 001CD CALLS #1, EXCHSRT11_WRITE_PREPARE : | ; 
2 11 00104 11$: BRB 14§ ; 0367) : 
05 6E AG £8 00106 12$:  BLBS  110(R4), 13$ + 0387) ; 
29 6E AG 01 al O1DA BBC #1, 110(R4), 14$ + 0389. ; 
5D A F OO1DF 138: PUSHAB 93(R3) : 0393. ; 
59 a3s=DD Oiee PUSHL  89(R3) : : 
10 Ad OF OO1E PUSHAB 1g<R4) : ; 
| 000000006 2 DD SOiER PUSHE ; XCH$_BADF ILENAME ; | 
000000006 00 0S FB SOiFO CALLS +s. LIB$SIGNAL ; : 
| 54 DD 001F7 PUSHL 4 + 0394 ; 
| 00000000G_ EF 01 FB 001F9 CALLS #1, EXCHSUTIL_NAMB_RELEASE Z ‘ 
50 000000006 8F B0 90200 MOVL § #EXCHS$_BADFILENAME, RO ; 0395 : 
000000006 EF 00 FB 00208 14$ CALLS #0, EXCHSUTIL_FILB_ALLOCATE + 0406 | : 
53 50 DO 0020F VL RO, OUT_FILB 3 : 
44 AS 53 D0 00212 MOVL  OUT_FILB, 68(COPY) + 0407 ; 
53 DD 00216 PUSHL OUT FIL + 0408 F 
54 DD 00218 PUSHL 4 : ; 
0000v CF 02 FB OO21A CALLS #2, EXCHSCOPY_NAMB_TO_FILB : ‘ 
OC AE D4 O021F CLRL ABORT > 0414 ; 
58 01 DO 00222 MOVL #1, > 0415 : 
6E 34 AS YE 0022 MOVAB 52(COPY), (SP) + 0426 : 
| 0000v CF 00 FB 00229 15$ CALLS #0, COPY. PARSE_NEXT_INPUT > 0416 : 
10 AE 50 DO pees MOVL RO, PRS_STA : : 
03 10 Ag 58 00232 BLBS = PRS_STAT, 16$ ; | : 
0257 31 00236 BRW 535 ; : 
52 3c = AS.-«D0 00239 168:  MOVL  60(COPY), INP_FILB + 0422 F 
34 00 BE €9 0023D BLBC  a0(SP), 19$ : 0426 : 
13 6C AG EB 00241 BLBS  108(R4S, 17$ : 0432 : 
OE 6D AG 01 £1 00245 BBC #1, 109(R4), 17$ > 0434 ; 
09 6D AG 02 £1 O024A BBC #2. 109(R4). 17$ + 0436 ; 
58 000000006 BF DO 0024F MOVL § #EXCHS_MANY.TO_ONE, STATUS + 0440 ; 
0c 11 00256 BRB 18$ > 0441 ; 
2c AS b3 00258 17$:  TSTL 44 (COPY) > 0448 ; 
18 13 00258 BEQL 19% ; ; 
58 000000006 8F DO 0025p MOVL § #EXCH$_STRTNOMULTI, STATUS > 0451 ; 
58 DD 00264 183:  PUSHL STATUS : 0452 ; 
000000006 00 01 FB 00266 CALLS #1, LIBSSIGNAL F : 
0000V CF 00 FB 0026D CALLS #9 COPY_PARSE_ CLEANUP > 0453 ; 
| o2i7 31 00872 BRW S$ ; 0450 | 
1¢ 000000006 FF £9 00275 19$: BLBC  @EXCHSA_GBL, 20$ + 0463 | 
| 08 AE 00000000G 8F »bO 00 7¢ MOVL § #EXCHS$ CANCELED, INO_STAT + 0466 
50 08 AE DO 00284 MOVL INO_STAT, STATUS2 > 0467 
50 03 00 03 FO 00 88 INSV #3,7#0, #3, STATUS2 : 
| 50 DDB 00280 PUSHL STATU : | 
000000006 00 01 FB 0028F CALLS #1, LIBSSIGNAL ; | 
09 11 00296 BRB 21 > 0463 | 
0000v CF 00 FB 00298 20$: CALLS #0, COPY_INPUT_OPEN > 0470 | 
08 AE 50 DO 0029D MOVL RO, INO_STAT ; | 
50 00 «BE 01 08 EF OO2A1 21$:  EXT2V ae. #1,7a0(SP), RO > 0474 | 
00 BE 01 03 FO OOZA7 INSV » #3, #1, ad(sP) 2 | 
00 4 04 8A 002AD BICB2 #4. ad(SP) + 0475 | 
0 08 AE €E8 00281 LBS _—INO_STAT, 22$ : 0477. 
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| 3 
 EXCHSCOPY copy_verb dispatch and misc routines 16-Sep-1984 00:41:4 AX-11 Bliss-32 V4.0-742 
v04-000 exchScopy copy g-gee- 18 4 $0 0u.$8 FEXCHNG SRE EXCCOPY.832;1 
28 «Ad 95 OO37C 358: TSTB «= 43 (OUT_FILB) 
| D 18 0 7F BGEQ 36$ 
09 69 4 € 81 BBS #4, (RO), 368 
0 000000006 BF D0 0 85 MOVL f KCHS_COPNEWNAME , COP_STAT 
| 05 69 ; EO OO38E 36$: BBS #3, (RO), 37$ 
| 07 00 BE E1 0039 BBC #3, a0(SP), 38S 
50 000000006 8F DO 0039 378: MOVL HEXCHS COPIED, COP_STAT 
| 07 00 2 €1 00 i 8$: Bac #e, a0tsP 
| 000000006 8F DO 003A MOVL § #EXCHS$_NOTCOP_RETRY, COP_STAT 
| 02 000000006 FF £9 O03AA 39$:  BLBC  @€EXCHSA GBL, 20S 
| 20 D4 99 B1 CLRL  COP_STAT 
0 dS 0383 40S: TSTL  COPTSTAT 
44 13 00385 BEQL © 45$ 
02 28 A3 91 00387 CMPB =s-« GQ(OUT_FILB), #2 
OA 12 00388 BNEQ 41$ 
00000200 = &F 35 A3 D1 003BD CMPL 53(OUT_FILB), #512 
OC 13 003C5 BEQL  42$ 
01 29. AS 91 003C7 41S: CMPB =s« G1 (OUT_FILB), #1 
| 06 13 003CB BEQL 42$ 
01 29 A2 91 003CD CMPB = 41 (INP_FILB), #1 
07 12 00301 BNEQ 43$ 
51 0000' CF 9E 00303 42$: § MOVAB P.AAY, B_OR_R 
05 11 00308 BRB 44$ 
51 0060' CF 9E 003DA 43$:  MOVAB P.ABA, B_OR_R 
51 DD OO3DF 44$:  PUSHL B ORR 
08 AE ODD 003E1 PUSHL REC_COUNT 
5A AS) OOF O03E4 PUSHAB 90(OUT_FILB) 
3a = A3-—s«ODD «O003E7 PUSHL 58(OUT"FILB) 
SA A2-sOOF:s«OO3EA PUSHAB 90(INP~FILB) 
3A = A2s«DD «OOO3ED PUSHL 58(INP~FILB) 
06 DD 003F0 PUSHL #6 
50 DD 003F2 PUSHL COP_STAT 
000000006 00 08 FB 003F4 CALLS #8, LIBSSIGNAL 
53 11 003FB 45$: BRB 48$ 
56 DD OO3FD 46$:  PUSHL CRE_STAT 
5A AS OOF «OO3FF PUSHAB 90(OUT_FILB) 
3a ASOD 00402 PUSHL 58(OUT~FILB) 
5A A2-sO9F:«0040 PUSHAB 90(INP~FILB) 
3a = A2-séD «00408 PUSHL 58(INPTFILB) 
04 DD 00408 PUSHL #4 
000000006 8F DD 90400 PUSHL HEXCHS NOTCOPIED 
000000006 00 97 FB 0041 CALLS #7, LIBSSIGNAL 
58 6 b0 O41A MOVL CRE_STAT, STATUS 
gD 13 0041D BEQL 7 
000184¢4 BF 6 D1 0041F CMPL  CRE_STAT, #99524 
24 13 00426 BEQL 47 
000000006 8F 6 D1 004 8 CMPL CRE_STAT, #EXCH$_RT11_OVERFLOW 
1B 13 0042F BEQL «= 47 
000000006 8F 56 Dt 00431 CMPL CRE_STAT, #EXCHS$_VOLUME_FULL 
12 13 004 BEQL = 47 
090000006 8F 56 D1 O043A CMPL CRE_STAT, #EXCHS_NOCOPSAMDEV 
09 13 00441 BEQL 7 
000000006 8F 6 DI Q445 CMPL CRE_STAT, #EXCHS_ILLMTCOPY 
04 if 0044A BNEQ 4 
Oc AE 01 D O044¢ 47$:  MOVL #1, ABORT 
0000v CF 00 FB 00450 48$: CALLS #0, COPY_INPUT_CLOSE 
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EXCHSCOPY copy verb dispatch and misc routines Sep-19 241:4 AX-11 Bliss-32 V4.0-7 | 
v04-000 exchScopy.copy ig: sen-1984 oot bur LEXCHNG SRCTEXCCOPY. B53 1 _— (88 


i 
| 27 OC AE EB 004 BLBS ABORT, 51$ : 0659) 
| FETS 5 23 49$:  BRW ; : “ugk 
| 08 AE b3 4a¢ 50$: st NO_STAT + 0668 
18 000000006 FF E8 00461 BLBS aEXCHSA GBL, 51$ + 0670 
58 AE DO 00468 MOVL O_STAT, STATUS > 0675 
| 00018292 8F 0 AE D4 b046¢ CPL INcSTAT, 798963 : 0678 
| 000184¢4 BF 08 AE D1 90476 CMPL | INO_STAT, #99524 ; 
D9 12 0047E BNEQ  49$7 : 
| 0000v CF 09 FB 0048) 518: CALLS #0. COPY PARSE_CLEANUP : 0688 
03 OC AE ; 00485 BLBS ABORT, 52$ : 0689 
FD9D 31 00489 BRW 15$ : 
09 10 AE €E8 0048C 528 BLBS PRS_STAT, 54$ + 0695 
10 AE D3 00490 53$ TSTL . PRSTS : 
04 13 00493 BEQL 54$ ; 
T:) 10 AE DO 00495 MOVL  PRS_STAT, STATU : 
o000v CF 0 FB 0499 54$: CALLS #0,~COPY OUTPUT_CLEANUP > 0699 
50 8 DO 0049E 55$: STATUS, : 070 
04 004A1 : 070 
; Routine Size: 1186 bytes, Routine Base: EXCHS$COPY_CODE + 0000 
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1 | 
| EXCHSCOPY copy verb dispatch and misc routines IGege 1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 21 EXC 
- excn$copy_in -Sep- 204: XCHNG. SRC JEXCCOPY.632; (5) 
| v04=060 hScopy_init Sep-1984 99:04:55 LEXCHNG’SRETE 3231 w 6) vou 
> 61 704 1 GLOBAL ROUTINE copy_init : NOVALUE =  XSBTTL ‘exch$copy_init' 
Hai: 708 BEGIN se ots | 
(3) 614 706 2 !+4 | 
> 615 707 ‘ | 
3 olg Bees ! FUNCTIONAL DESCRIPTION: 
: Bie Oro 3 i c ini ine for th d b 
: ‘ ommon init routine for the copy and type verbs 
: 619 O711 3 i fe og | 
; 620 pris ! INPUTS: 
: 621 071 ! | 
; 6 ; 0714 ! none 
= Bre : 
634 O71¢ 3 | IMPLICIT INPUTS: | 
; . $ 1444 Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ | 
; 856 0720 ' OUTPUTS: 
; $68 0721 ! 
: 630 07 ¢ ! none 7 R 
; 631 O72 i 
; O36 0724 ! IMPLICIT OUTPUTS: 
3; $3 0725 ! | 
> 634 8259 : none 
: 635 0727 ! | 
; 636 0728 § ' ROUTINE VALUE: 
: 637 4044 : | 
; 638 0730 2! none 
: 639 0731 2! 
; 640 O7 36 2 ! SIDE EFFECTS: 
; 641 0733 2! | 
; ote 0734 2! Files may be created. 
; 64 0735 2 !-- 
> 644 0736 § ; 
; 645 0737 $dbgtrc_prefix ('copy_init> '); 
; 646 0738 2 
3; 647 0739 2 LOCAL 
; 668 0740 § status 
: 649 0741 : 
: 650 ores 2 
3; 6351 074 § BIND 
3 636 toe} copy = exch$a_gbl Cexcg$a_copy_work] : $ref_bblock ! Pointer to work area 
: 654 0746 
; 655 Loe 
; o38 to: If our pointer is null, we need to allocate and initialize the work area 
: 658 0750 IF .copy EQL 0 
; 659 0751 THE 
: 660 0736 BEGIN 
; 661 075 ’ ; 
: 66¢ 0754 ' Get the right sized chunk of memory 
: 66 0755 ! : 
; re 8738 copy = exch$util_vm_allocate (exchblk$s_copy); 
; 666 6788 ' Set the ident fields 
; 667 0759 i igh | 
: 668 0760 $blaock_init (.copy, copy); 
| 
| 


—— a ee 


] 
_ EXCHSCOPY copy verb eer and misc routines Sep-1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 2| 
/ V04-000 exchScopy.4 ini if sen-1984 $0 °bu; g EXCHNG.SRCJEXCCOPY.B32;1 . 55 
; 669 761 
3 070 i Set the dynamic strings 
t 67 764 $dyn_str_desc_init (copy Ccopy$q_default_filename)); 
3 67 765 $dyn_str_desc_init ‘copy copysae input_filename)); | 
: 674 0766 $dyn_str_desc_init (copy Ccopy$q- ~utput. filename); | 
|; 675 76 $dyn_str_desc_init (copy [copy$q_ abot bate name); 
| 3 676 0768 1\ $dyn_ str_desc_init (copy copy $a a. 00 
is 677 0769 '\ $dynistr_desc_init (copy [Ccopy$q 
r ors pre '\ $dyn-str_desc_init (copy copysara o eetastiontii 
: 680 O77¢ END 
; 681 077 ELSE 
; oS 0774 BEGIN 
; +68 0775 
: one b778 ! Free the dynamic strings and the Chicago 7 
: 686 0778 ; cartired _dx (copy Ccopy$q_default_filename]); 
; 687 0779 str$freel_dx (copy Ccopy$q_input_fTlename)); 
; 688 0780 3 str$freel_dx (copy Ccopy$q_output_filenamel); 
; 689 0781 '\ str$freel_dx (copy Ccopy$q_q_boot]); 
: 690 14 '\ str$freel_dx (copy Ccopy$q_q_fdlJ); 
: o 4 F, '\ str$freel_dx (copy Ccopy$q_q_ “protection)); 
: 69 0785 2 END; 
> 694 0786 5 
; o3? $414 § Get some confidence that our work area is valid 
: oof 1434 § $block_check (2, .copy, copy, 408); | 
: 699 791 ! Set the Last part of the block to nulls | 
; a a7898 CHSFILL (0, copy$k_end_zero = copy$k_start_zero, .copy + copy$k_start_zero); 
: A 144 a ! Start with a very large max rec, it will be adjusted if too large 
: 705 0797 copy Ccopy$l_max_rec] = 65535; 
; 444 4444 Get the global boolean qualifiers common to both commands 
: 0801 2 status = clLiSpresent (ZASCID "LOG" di ' Global qualifier 
; 710 080 copy FeopySv_a = = atu : 4 state 
; ay 4 copy Ccopy$v_ Wy nolog_explicit] = . saaten EQL cli$_negated); ! Set if /NOLOG is present 
: at 0805 5 '\ copy Ccopy$v_q_confirm] = cli$present (ZASCID "CONFIRM'); ' global 
3: 715 0807 ‘ RETURN; 
; 716 0808 1 END; 
-PSECT EXCHSCOPY_PLIT,NOWRT,2 
00 47 4F rs OOF4 P.ABD: .ASCII \LOG\<0> : 
010000 OOF8 P.ABC: .LONG 17694723 ; 
| 0000000* OOOFC ADDRESS P.ABD 3 
| 
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; Routine Size: 196 bytes, Routine Base: EXCHSCOPY_CODE + 04A2 


N 1 
, EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 41:4 AxX-11 Bliss-32 V4.0-742 Page 23 
046-000 exchScopy_init eet $0 rba:88 LEXCHNG SRE EXCCOPY.B32;1 (3 | 
| 
~EXTRN EXCHS$GQ_DYN STR TEMPLATE 
SEXTRN STRSFREE1_D% 
| .PSECT EXCHSCOPY_CODE,NOWRT,2 
OOFC 0000 .ENTRY COPY_INIT, Save R2,R3,R4,R5,R6,R7 : 0704 
| 57 000000006 00 9 itd WOVAB STRSFREE1 DX : 
| 52 000000006 _ EF 04 C1 00009 ADDL3 #4, EXCHSA_GBL, R2 + 0744 
ss Us Stack ae 
7E 4¢ = BF OSA boots MOVZ(. #76, -(SP) : 0756) 
000000006 EF Q1 FB 0019 CALLS. #1, EXCHSUTIL_VM_ALLOCATE : 
62 0 D 9 VL. —-RO. ~(R2) : 
08 AO 4c BF 98 000 MOVZBW #76, (RO) + 0760 
OA AO 01 BE 00028 MNEGB #1, 10(RO) : 
50 62 00 900 C MOVL (RO), RO + 0764 
53 000000006 EF D0 99 F MOVL TMPL, R3 : | 
60 3 D0 00036 MOVL  R3, (RO) : 
51 000000006 EF DO 00039 MOVL TMPL+4, R1 : 
04 AO 1 DO 00040 MOVL. R1, 4(RO) : 
50 ry) 0c C1 00044 ADDL3 #12, (R2), RO : 0765 | 
60 53 DO 00048 MOVL 3, (RO) : 
04 Ad 51 00 00048 OVL RI. 4(RO) : 
50 62 14 C1 0004F ADDL3 #20, (R2), RO : 0766 
60 53 DO 00053 MOVL 3, (RO) : 
04 AO 51 dO 00056 MOVL. R1, 4(RO) : 
50 62 i¢ C1 O005A ADDL3 #28, (R2), RO : 0767, 
60 53 DO O00SE MOVL R3, (RO) : 
04 AO 51 DO 00061 MOVL  R1. 4(RO) : 
| 13 11 00065 BRB 2$ : 0750 
62 DD 00067 1$ PUSHL  (R2) : 0778 
67 01 FB 00069 CALLS #1, STRSFREE1_Dx : 
7E 6 0c C1 0006C ADDL3 #18, - : 0779 
6 01 FB 00070 CALLS #1, STRSFREE1 DX ; 
7E 62 14 C1 00073 ADDL3 #20, (R2), -(SP) : 0780 
67 01 FB 00077 CALLS #1, STRSFREE1_DX ; 
56 62 DO OO07A 2$ MOVL  (R2), R + 0789 
52 OO4COOFF BF b0 0007D MOVL #4986991, R2 F 
51 0198 8F 3C 00084 MOVZ2WL #408, R1 : 
50 56 00 00089 OVL  R6, RO : 
000000006 EF 16 0008 ISB EXCHSUTIL_BLOCK_CHECK ; 
28 00 6E ne 00 2¢ 9009¢ movcS #0, (SP),"#0, #20, 36(R6) : 0793 
38 AG FFFF BF 3¢ 00099 MOVZWL #65535, 56(R6) : 0797 | 
0000' CF 9F 0009F PUSHAB P.ABC : 0801 | 
000000006 00 01 FB OO0A CALLS #1, CLISPRESENT : | 
30 A6 01 0 0 FO QOOAA INSV STATUS, #3, #1, 48(R6) ; itd 
51 D4 000B0 CLRL sR + 080 | 
| 000000006 8F 50 D1 000B CMPL STATUS, #CLIS_NEGATED ; 
02 12 0008 BNEG 3$ : 
51 06 00BB INCL RI : 
30 Ab 01 04 51 FO OOOBD 3$: INSV R1, #4, #1, 48(R6) : 
04 000C : 
| 
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copy_input_close -Sep-19 :04:5 EXCHNG. SRCJEXCCOPY.B32;1 
BS 09 GLOBAL ROUTINE copy_input_close : NOVALUE = ZSBTTL ‘copy_input_close' 
: 74 p 10 2 BEGIN oe si pet 
; 720 ae le¢ 
s 21 0 \¢ i 
3; 7 § get i FUNCTIONAL DESCRIPTION: 
. Ff B14 i 
: 724 0815 i Close the input file 
; 725 pai8 i 
; 726 Ba i INPUTS: 
s Yar 818 i 
:; 728 0819 i none 
; 729 0820 i 
3 f , Be 2 IMPLICIT INPUTS: 
ee 082 i copy Ccopy$a_inp_filb] describes the file to be closed 
; bag 0894 9 i ee ee 
3 ree 0825 i QUTPUTS: 
3; 735 0826 2! 
s 13% 0827 2: none 
3 sr 0828 2: 
; 738 +134 2 | IMPLICIT OUTPUTS: 
; 739 0830 i 
; 740 0831 i none 
3: 741 peas : 
s 76 083 § i ROUTINE VALUE: 
s £6 0834 i 
> 744 0835 2} Success or worst error encountered. 
3 «6745 0836 2 | 
: 746 0837 2 i SIDE EFFECTS: 
3 747 0838 2: 
; 748 0839 i none 
: 749 0840 in 
: 750 0841 
3: 751 0842 2 $dbgtrc_prefix ("copy_input_close> '); 
; r3¢ 084 § 
ee 0844 LOCAL 
; 7546 0845 § status 
i 0846 ; 
; 756 0847 2 
s 757 0848 2 BIND 
: 758 0849 2 copy = exch$a_gbl Cexcg$a_copy_ work] : $ref_bblock, ! Pointer to work area 
s 739 0850 inp. filb = copy Ccopy$a_inp_fiTtb] : $ref_bblock ! Filb for the input 
: 760 0851 ; 
3; 761 0836 
; roe st 
; 76 854 $Sblock_check (2, .copy, copy 
: 764 0855 Sblockcheck (2, .inp_ tilbe fib iO: 
3 4] 0857 Call the file-specific close routine 
; 768 $839 (.inp_filb Cfilb$a_close_routine]) (.inp_filb); 
; 769 re 
; 770 861 RETURN; 
: 771 0862 END; 
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EXCHSCOPY co erb dispatch and misc routines igege Sep-1984 : AX-11 iss- 4.0-74 
v04- copy. {nput. close 2 ats 7 9° 4:38 EXCHNG SRETERCCOPY BSoe1 


003¢ .ENTRY COPY_INPUT_CLOSE, Save R2,R3,R4,R5 
55 000000006 EF st MOVA EXCHSUTIL BLOCK_CHECK, Re 
53 000000006 ae ADDL3 #4, EXCHSA_GBL,~R3 
4 ¢ C1 i ADDLS # 6 (R3),~R4 
OO4COOFF F bo 1 MOVL # $0991, R2 
FD oF ¢ I MOVZWi ’ , RI 
0 63 D OVL (R3). RO 
6 if: 4 SB EXCHS$UTIL_BLOCK_CHECK 
3 40 6 MOVL (R4), R 
2 035B00FA F pO 99 OVL #362956 4, R2 
1 1FE BF ¢ 0 MOVZWL #510, R1 
50 3 D0 0003 OVL  R3, RO 
65 16 00038 JSB OF CHSOTIL _BLOCK_CHECK 
53 DD OO03A PUSHL R3 
4A B3 01 FB 0003C¢ CALLS #1, @74(R3) 
04 00040 RET 


; Routine Size: 65 bytes, Routine Base: EXCHSCOPY_CODE + 0566 


EXCHSCOPY copy verb dispatch and misc routines 52 1984 00:41:4 AX-11 Oi ies -32 V4.0-742 Page 26 

v04-000 Copy. input “open if 8ep-1984 98: :04:5 EXCHNG. SRC} EXCCOPY.B32;1 . (3 

: 773 63 GLOBAL ROUTINE copy_input_open = XSBTTL ‘copy_input_open' 

: 27% Bee > GERIN ne ea fete 

; 9 65 '+4 

3; a r¢ : 

3 77 86 ' FUNCTIONAL DESCRIPTION: 

; 778 868 : 

; 779 0869 ! Open the input file 

; 780 0870 : 

; 781 0871 ' INPUTS: 

3 ree oar6 ! 

; 087 : none 

> 784 0874 : 

; «785 0875 ' IMPLICIT INPUTS: 

; 786 pare ! 

: 787 087 ! copy Ccopy$a_inp_filb] describes the file to be opened 

; «4788 eh ! 
: 789 08 ' OUTPUTS: 
: 790 0880 ! 
; 791 0881 ! none 
; 79 fer 2! 
; 0883 2 ! IMPLICIT OUTPUTS: 
; 794 0884 : ! 
3; 795 0885 ! none 
3 0886 2! 
: 797 0887 § ! ROUTINE VALUE: 

; 798 0888 : 

3 0889 2! Success or worst error encountered. 

; 800 0890 2! 

; 801 0891 2 ! SIDE EFFECTS: 

; 80 0892 2! 

; 80 0893 2! none 
: 804 0894 $ !e= 
: B08 $896 2 $dbgt fix ( i t > *) | 
; rc_prefix (‘copy _input_open> '); 

: B07 BE Base tithes eee | 
; 808 0898 2 LOCAL 
; 809 0899 2 status 

: 810 0900 § 3 
: «811 0901 
3 sig 0902 2 BIND 
; 81 0903 2 copy = exch$a_gbl CexcgSa_ =COPY po work] : $ref_bblock, ! Pointer to work area 
> 814 0904 2 inp_filb = copy Ecopy$a_i inp_f : $ref_bblock, i Filb for the input 
: Hi 34 ; inp. ae o copy Ccopy$a_inp_ “ftp : $ret” _bblock i Namb for the input 

s B19 90 

3; 8 0908 2 

; 819 0909 2 $block check (2, .copy, copy 1 $b 

; 820 0910 3 $block-check (2, .inp_filb, filb, 410); 

: 821 0911 Sblock~check (2, .inp_ aan hee S 411); 
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v04- copy. {nput open 8ep-1984 $3 04 704: 38 EXCHNG.SRCJEXCCOPY.B32;1 #8 aif 


3 § ; 0318 Perform the volume-specific open operation 

3 ; ? O31 CASE -inp_namb Cnamb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 
; 827 0916 volb$k_vfmt_dos11] : status = exch$dos1l1_open_file (); 

; 828 0917 volb$k_vfmt_filesi1] : acaces = exch$filll_open ati te, QO; 

; 829 0918 volb$k_vfmt_rt11 : status = exch$rt11 open, Fil : 

: 830 0919 '\) Cvolb$k"vfmt_rtmt : $exch si nal_stop Texch$ not inoLenent) 
; 831 0920 OUTRANCE, INRANGE : Slogic_check” (0, (false)? 

$ tT 0921 TES; 

; 83 09 ¢ 

3 Ht 82 RETURN .status; 

3 855 924 1 END; 


~-EXTRN EXCHS_BADLOGIC 


007¢ 00000 .ENTRY COPY_INPUT_OPEN, Save R2,.R3,R4,R5,R6 > 0863) 
56 00000000G EF 9E 00002 MOVAB EXCHSUTIL BLOCK. CHECK, R6 3 
53 000000006 _ EF 04 C1 00009 ADDL3 #4, EXCHSA_GBL,~R3 + 0903, 
55 63 3¢ C1 00011 ADDL3 766, (R3), : 0904 | 
54 63 00000040 BF £1 00015 ADDL3 #64. (R3). RG : 0905 | 
52 OOGCOOFF 8F 00 00010 OvL #4980991, R2 : 0909. 
51 0199 BF 3C 00024 MOV2WL #409, R1 : 

50 63 DO 00029 OVL  (R3). RO : 

66 16 0002C JSB EXCHSUTIL_BLOCK_CHECK ; 
52 O35B00FA 8F DO 000¢E OVL #562956747 R2 : 0910 

51 019A BF 3C 00035 MOVZ2WL #410, R1 ; 

50 65 DO 0003A OVL (RS). RO : 

66 16 0003D JSB EXCH$UTIL_BLOCK_CHECK : 
53 64 DO 0003F MOVL (R4), R3 > 0911) 

52 O10A00F7 + 8F DO 00042 MOVL  #17482823, R2 : 

51 0198 8F 3C 00049 MOVZ2WL #411, RI ; 
50 53 DO 0004E OVL  R3, RO : | 
66 16 00051 JSB EXCHSUTIL_BLOCK_CHECK ; 
03 00 7A A3 8F 00053 CASEB 122(R3), BO, #3 > 0914) 
002¢ 0024 001C 0008 00058 1$: WORD g3-1$.- ; | 
4$-1$.- : | 
5$-1$ : 
7E E9 8F 9A 00060 2$ MOVZBL #233, -(SP) > 0920 

1 DD 00064 PUSHL #1 F 

000000006 8F DD 00066 PUSHL wEXCHS BADLOGIC : 

000000006 00 3 FB 0006¢ CALLS #3, LIBSST : 
000000006 EF 00 FB 9007% 3$: CALLS #0, EXCH$DOS11_OPEN_FILE > 0916 | 
000000006 EF . 00 FB a907¢ 4$: CELLS #0, EXCHSFIL11_OPEN_FILE + 0917 | 
000000006 EF 00 FB So08z 5$: CALLS #0, EXCHSRT11_OPEN_FILE > 0918 
04 00088 RET > 0924 


; Routine Size: 140 bytes, Routine Base: EXCHSCOPY_CODE + 05A7 
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094 


verb dispatch and misc routines 
copy_namb_to_filb (namb, filb) 


1 GLOBAL ROUTINE exch$copy_namb_to_filb (namb : $Sref_bblock ZSBTTL 
tilb : $Sref_bblock) : NOVA 


a 
FUNCTIONAL DESCRIPTION: 

Set some fields in the filb using data from the namb 
INPUTS: 


namb - address of namb 
filb - address of filb 


1 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
4 none 
‘ ROUTINE VALUE: 
$ ° none 
: ! SIDE EFFECTS: 
: 
5 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
1 
i 
' 
none 


$dbgtrc_prefix ('copy_namb_to_filb> '); 


$block_check (2, .nmamb, nmamb, 523); 
$block_check (2, .filb, filb, 524); 


Set fields in the file context block 

filb Cfilb$a_assoc_namb) = .nmamb; 

filb Cfilb$a_assoc_volbJ = .namb C[namb$a_assoc_volb); 
filb Cfilb$b7car_control = .namb Cnamb$b-car_controld; 
filb Cfilb$b_rec_ format] = .namb Cnamb$b_rec_format]; 
filb Cfilb$b_transfer_mode] = .namb Cnamb$b_transfer_mode); 
filb Cfilb$l_fixed lenj = .namb Cnamb$l_fixed_lend; 
filb Cfilb$b_pad_char] = .namb Cnamb$b_pad_charJ; 

filb CfilbSvirfmt_explicit) = .namb Cnamb$v_rfmt_explicit; 
filb Cfilb$v_cctl_explicit] = .namb [namb$v_cctl_explicitd; 
filb Cfilb$vlexplicit_version] = .namb Cnamb$v_explicit_version]; 


: Virtual devices will have meaningless vol_formats in the namb. 
if (.filb Cfilb$a_assoc_volb] NEQ 0) 
THEN 


F 
16-Sep-1984 00:41:4 AX=11 Bliss-32 V4.0-742 
8 3 $8 LEXCHNG. SRE EXCCOPY.832;1 


LUE 


Pointer to the namb é 
Pointer to the volb (0 if Files-11 
Carriage control byte 

Record format byte 

! Transfer mode byte ; 

Record length (format=fixed only) 
Pad character (format=fixed only) 
' A /RECORD was seen 

! A /CARRIAGE was seen te 
Explicit version number specified 


Copy the volb format to the namb always. 
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_texchScopy_namb_to_filb (namb, filb)' 
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EXCHSCOPY copy verb dispatch and misc routines Sep-19 241:4 AX-11 Bliss-32 V4.0-742 
v04-000 copy output .c Leanup if: se0-1984 33 bass EXCHNG. SRCJEXCCOPY.B32; 1 
903 990 1 SL Cont ROUTINE copy_output_cleanup : NOVALUE = %SBTTL ‘copy_output_cleanup' 
++ 


FUNCTIONAL DESCRIPTION: 

Clean up the output file info. Release the namb and other structures. 
INPUTS: 

none 
IMPLICIT INPUTS: 


copy$a_out_filb field in copy work area 
copy$a_out_namb field in copy work area 


OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 


none 


$dbgtrc_prefix ("copy_output_cleanup> '); 
39 
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4 BIND 

941 copy = exch$a_gbl Cexcg$a_ mahi work] : $ref_bblock, ! Pointer to work area 
94 out_filb = copy Ecopy$a_ out : $ref_bblock, ! Filb for the output 

94 out_namb = opy ts epyse- out fanb] ; $ref_bblock, ! Namb for the output 

aoe ctx” = out_ fil Cfilb$a_Ccontext] : Sref_bblock ! Volume specific context 
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EXCHSCOPY copy verb dispatch and misc routines Ib-se =1984 00:41:4 AX=11 Bliss-32 V4.0-742 Page 31 Exc 
v04- Copy output .c Leanup ~Sep-19 4 $0 eba 8s EXCHNG. SRCJEXCCOPY.B325 1 . (11) v04 
: 947 1033 2! If a context block is present release it | :] 
; 948 1034 ' . 
: 949 1035 IF .ctx NEQ 0 . 7 
3 ge 10 $ THEN 3 3 
; 92] 19 4 CASE -out_namb Cnamb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF : : 
3 988 1039 volb$k_vfmt_dos11] : exch$uti:_doslictx_release (.ctx); 3; 7 
; 954 1040 volb$k_vfmt_filesi1] : exch$util-rmsb_release (.ctx); ; 1 
; 955 1041 volb$k_vfmt rtii] : exch$util’rtilctx_ release (.ctx); 7] 
3 928 1008 OUTRANGE , INRANGE] : Slogic_chéck (0, Tfalse), 234); 3s) 
: 98, 1044 2 
3 £9 IRs? If the output volume was RT-11, flush the directory of any modified segments ‘ . 
; 961 1069 CASE .out_namb Cnamb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 3 7 
$ | 1048 SET $7 
; 96 1049 3 1 
> 964 1050 CvolbSk_vfmt_rti1] : 37 
; 965 1051 BEGIN $7 
; 966 126 IND ; : 1 
: 967 105 ; volb = out_filb Cfilb$a_assoc_volb] : Sref_bblock; 3 7 
; aoe iNeed exch$rtll_write_cleanup (.volb); ! Do sundries necessary before we stop copying : : 
; 970 1056 3 7 
3; 971 1057 CINRANGE, OUTRANGE) : s7 
; 97 1058 3 ! Nothing to do for these guys 3.7 
; 97 1059 2 TES; 
: 974 1060 § 
; 975 1061 ' Release the output namb 
; 976 1066 : 
; 977 106 exch$util_namb_release (.out_namb); 
: 978 1064 
: 979 1065 2 ! Release the output filb 
: 980 1066 § : 
; #981 1067 exch$util_filb_release (.out_filb); 
: 982 1068 2 
; 983 1069 2 RETURN; 
; 4984 1070 1 END; 
000C tit -ENTRY COPY_OUTPUT_CLEANUP, Save R2,R3 ; 0990 
50 00000000G_ EF 04 C1 00002 ADDL #4, EXCHSA_GBL, RO : 1028 
53 60 00000044 8F C1 00004 ADDL 66, (RO), R3 : 1929 
52 9 00000048 8F C1 00012 ADDL a $° ny R2 : 1030) 
51 6 20 C1 QOOIA ADDL #32, (R3), R1 ; 1031) 
61 b3 OO0iE TSTL = (RIS ; 1035 
44 1 B38 BEQL 6$ : 
50 6¢ dO $2 ¢ MOVL R3) RO 3 1037. 
03 00 7A AO 8F 000 CASEB 122(RO), #0, #3 ; | 
0033 0028 001D 0008 0002A 1$: - WORD ¢3-13-7 : 
4$-1$,- 3 
5$-1$ ; 
7E EA 8F 9A 00032 2%: MOVZBL #234, -(SP) 3 


P. | 
EXCHSC Y copy verb dispatch and misc routines 16-Sep-1984 4 00:61:4 AX-11 BLi $$ -32 v4.0-742 Page 32. Ex¢ 


copy_output_cleanup -Sep-1984 22:04:5 EXCHNG.SRC SEXCCOPY.B3251 (11) | v4 
1 pd 00 6 PUSHL ; 
000000006 8F DD 00 PUSHL ARCH BA BADLOGIC ; | 
000000006 00 3 Fe 0 CALLS ; 
| & 4 BRB : | 
61 DD 004 3$ PUSHL  (R1) + 1039) 
000000006 EF 01 Fe 0049 CALLS #1,  EXCHSUTIL_DOS11CTX_RELEASE : 
1 DD 0080 4$ PUSHL  (R1) ; 1040 | 
000000006 EF 1 FB 00054 CALLS #1, EXCHSUTIL_RMSB_RELEASE 3 
9 11 00058 BRB 6$ : | 
61 DD 0005D 5$: PUSHL  (R1) + 1041 
000000006 gE 01 fe BREE CALLS #1, EXCHSUTIL_RT11CTX_RELEASE : 
62 D 66 6$: MOVL (Re) R t 1047 
03 0 7A Ad BF 00069 CASEB 122(R2), #0, #3 ; 
000A 001 0017 001 O006E 7$: «WORD 9$-78.~ : 
9$-7$,- : 
8$-7$ : 
0D 11 0007 BRB 9$ ; 
50 63 1¢ C1 00078 8$: ADDL3 #28, (R3), RO > 1053 
60 od 0007C PUSHL (ROS + 1054 
000000006 EF 01 FB 0007 CALLS #1, EXCHSRT11_WRITE_CLEANUP ; 
52 DD 00085 9$: PUSHL R ; 
000000006 _ EF 01 FB 00087 CALLS #1, EXCHSUTIL_NAMB_RELEASE ; 
63 0D 0008 PUSHL (R35) : 1067 
000000006 EF 01 FB 0009 CALLS #1, EXCHSUTIL_FILB_RELEASE ; 
04 00097 RET t 1070 


; Routine Size: 152 bytes, Routine Base: EXCHSCOPY_CODE + 06B4 
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ek kk ek et i ik a a = — 9 2 ds —» = — -s —s 2 2 ss a 
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EXCHSCOPY 
v04- 


998 


Sees SSSSs3 


WALA IPI POPU PUNININIDINID 9 2 OS OO OO Oe 


copy verb dis 
copy_output_c 


1 SL 00k. ROUTINE copy_output_close = ZSBTTL ‘copy_output_close’ 


SoOOCOOCOCOCOOOOCOOCOCOOOOCOOOOCOOOOoO 


RRO 2 1 2000000004455 55H 55 IDR BDMMDMMMOMo VIN NNNA 


a ee ee eh ee ee ee ca ee a ce ee ca ee ee ce a ce ee ee ce ee ce ee ee ed ee ce et ce ea ee ee ee ee ee ce ee ed ee ed ee ee eB ec ee 
WR 9 OONOUE WN (OOD NOAUE WIN $0 ODNAUFS WN (OO ONAUES WR "OO ONOUS wT 


me ee a ed ad aed od dd od = 4 = 


ose ep-19 
le 
FUNCTIONAL DESCRIPTION: 
Close the output file 
INPUTS: 
none 
IMPLICIT INPUTS: 
copy Ccopy$a_out_filb] describes the file to be closed 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
Success or worst error encountered. 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
1 
i 
i 
none 


$dbgtrc_prefix ('copy_output_close> '); 


LOCAL 
status 
BIND 
copy = exch$a_gbl Cexcg$a_copy_ work] : $ref_bblock, ! Pointer to work area 
: Sref_bblock ! Filb for the output 


out_filb = copy Ccopy$a_out_filb] 


$trace_print_lit ("entry"); 

$Sblock_check (2, .copy, copy, 514); 

Sblock~check (2, .out_filb, filb, 515); 

Call the file-specific close routine 

RETURN (.out_filb Cfilb$a_close_routine]) (.out_filb); 


END; 


sé 
h j j os - 8 g = = VU? 
tose ye hatte are is 1982 $3 rber88 YEXCHNG’ Ske EXeCOY BSoe1 


; Routine Size: 


copy verb Sropeten and misc routines 


copy_output_c lose 


So 
o 


One -IOWI 9 -TWI NO Ow 
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5 
23 000000006 ay 


OW OO TUWwU 
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69 bytes, Routine Base: EXCHS$COPY_COD 
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Sa 
CK 


L_BLOCK_CHECK 


REO SEs 
os 
2 
~ 


DO DADDODoAe 


HSUTIL_BLOCK_CHECK 
» 974(R3) 


<m 


ea 
a ee a td ag td 2 ss 4 9 6 SH PH SH SH HY Ss HS SS YH SH Ss 9 49 HH  ) _ sg M 2 9 SS YS Y HS HH o 


ve ge RSM RS 
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copy verb dispatch and misc routines 16-Sep-1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 
copy output..create at 7 $8 ebai8 EXCHNG. SROJEXCCOPY .B32s1 «3 


4 1 scent ROUTINE copy_output_create = ZSBTTL ‘copy_output_create' 


<m 
~uw 
<m 
RS 


i i a a a at at ts a ss Ss ts 8 ss 4 ss a 4 
— 
— 


SND DDD DPA DAD BB BBB BE EE EWI IIIIwonnornonononeny 
NM —OOONA NEW $ O ODNAUES WN S$ OOONAULE WN O OONOUE WN OOONOU 


'e¢ 


i FUNCTIONAL DESCRIPTION: 

i Open the output file 
i INPUTS: 
i none 

i IMPLICIT INPUTS: 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
copy Ccopy$a_out_filb] describes the file to be opened 
; OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
' 
' 
' 
' 
' 
' 
' 
J 
' 
' 


la li ie a ai a a a ye ae 


i ROUTINE VALUE: 


RRRFRRARARARAARAR ER ERE REE 
EWR ODDNAUN EWN OODNAUEWN HO 


eh ae at os = ot 2 2a a Ss SS SS 2 SS SS SS SS SS SS Ls SH DY SH SY HY OS DS 


ao Od 8 ns te 8 DS WS 2 ss 5 a ts 8 ss 2 5 ts ss ss ss > 2s 5 2 a 4 a 
se a a 8 a a a 4 8 = 2 a sn sd ss a ts a a ss tt 


PRIPPIPNINIMNONIPYINIPONINININININPINININIPINYNINIPYININPYNIPIPIPYPUPINPINPIPINIPIPINPIPIPYPINIPININY 


Sa Oe Se Se Se Oe Ge Ge Be Se Ge Be Ge Se Ge Se Se Ge Se Se Ge Ge Be Se Ge Se Se Ge Se Se Se Se Se ee Se Se Se See Se Se Ge Se ee Se Se teasas 


bes Success or worst error encountered. ' 
068 ! SIDE EFFECTS: y 
069 | 
070 none 
071 ae ( 
O76 ( 
arr $dbgtrc_prefix (*copy_output_create> '); 
075 LOCAL | 
C76 status 
077 : 1 
078 1 
079 BIND 1 
080 copy = exch$a_gbl Coxe gSa_copy work] : $ref_bblock, ! Pointer to work area 1 
081 out_filb = copy Ccopy$a_out_filb : $ref_bblock, ! Filb for the output 1 
O36 out_namb = copy Ccopy$a_out_namb : $ref_bblock ! Namb for the output | } 
084 1 
085 1 
086 $Sblock_check (2, .copy, copy, 516); 1 
087 $block~check (2. .out_filb, filb, 517); 1 
088 $Sblock_check (2, .out_namb, namb, 518); : 

1 

1 

1 

1 

1 

1 

1 


EXCHSCOPY 
v04-000 


3s 1 
.% 
3: 1 
3s 3 
3s 1 
. 5 
3; 1 
3 1 
s 
3 1 
. 
3 1 
3: 1 


002¢ 


; Routine Size: 


copy verb dispatch and misc routines 1 5o0-19 4 t 99:4) 68 AX=11 Biles =32 V4.0-742 
copy_output_create -Sep-1984 EXCHNG.SRC SEXCCOPY.B3251 
1173 } Perform the volume-specific create operation 

1179 CASE .out_namb Cnamb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 
1199 volb$k_vfmt_dos11] : status = exch$dosl1_create_ file §33 

1178 volb$k_vfmt_files11] : status = exch$filll_create_file () : 

1179 volbsk_v at rt : status = exch$rt11 roreate. File 0; 

1180 '\ olb$Sk_vfmt_rtmt : Sexch_signal ~$50P Texch$ ~figt implement); 

1181 OUTRANGE , INRANGE : Slogi¢_check (0, (false)? 

11 ¢ TES; 

118 

ke RETURN .status; 

1185 END; 


007C 00000 eENTRY COPY_OUTPUT_CREATE, Save R2,R3,R4,R5,R6 
56 000000006 EF 9E 00002 MOVA EXCHSUTIL BLOCK. HECK, R6 
53 000000006 EF 04 C1 00009 ADDL EXCHSA_G 3 
55 63 99000044 8F C¢1 00011 ADDL neh. (R3), -p3t 
54 63 00000048 8F C1 00019 ADDL3 #72. (R3). RG 
52 OOGCOOFF BF DO 90081 MOVL #4980991, R2 
51 0204 8F 3C 00028 MOVZWL #516, R1 
50 63 DO 0002D MOVL  (R3). RO 
66 16 00030 JSB EXCH$UTIL_BLOCK_CHECK 
52 O35B00FA 8F v0 00032 MOVL #96095674; R2 
51 0205 8F 3C 00039 MOVZWL #517, R1 
50 65 DO 0003E MOVL (R5). RO 
66 16 00041 JSB EXCHSUTIL BLOCK_CHECK 
53 64 00 00043 MOVL  (R4), R 
52 O10A00F7 = BF v0 00046 MOVL  #17482823, R2 
51 0206 8F 3C 0004D MOVZWL #518, R1 
50 53 00 90052 OVL  R3, RO 
66 16 0005 JSB EXCHSUTIL BLOCK_CHECK 
03 00 7A _A3. 8BF 00057 CASEB 122(R3), BO, #3” 
0024 001C¢ 0008 0005C 1$: WORD g-1$.- 
4$-1$.- 
5$-1$ 
7E EB BF 9A 00064 2$: MOVZBL #235, -(SP) 
01 DD 00068 PUSHL #1 
000000006 ar DD O06A PUSHL #EXCHS BADLOGIC 
000000006 00 3 FB 9070 CALLS #3, LIBSSTOP 
000000006 EF 00 FB 0078 3$ CALLS #0, EXCHS$DOS11_CREATE_FILE 
000000006 EF 00 FB 9080 4$: CALLS #0, EXCHSFIL11_CREATE_FILE 
000000006 EF 00 FB 00088 5S: CALLS #0, EXCHSRT11_CREATE_FILE 
04 0008F RET 
144 bytes, Routine Base: EXCHSCOPY_CODE + 0791 
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POPIPPIPOPINININININPDNININPINYNININYINPYNINININYIAINININYNIDINPININPINPININININININININI|DYD 2 tt OS 
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copy_output_delete 4 22: 


1 


=PINPINIPINPIPDPPINPIPININIPYNPINYIIINYINPINIPNPIAINPINIPDNINININPININYDPINYIAIPIPIPIPPYPIPYAIPIPIPUPOPIPUPINPNNPPD 


-Sep-19 04:5 


it Bliss-32 V4.0-742 
EXCHNG.SRCJEXCCOPY.832;1 


soe. ROUTINE copy_output_delete : NOVALUE = %SBTTL ‘copy_output_delete’ 


'e¢ 

3 FUNCTIONAL DESCRIPTION: 
Delete the output file 
INPUTS: 
none 
IMPLICIT INPUTS: 
copy [copy$a_out_filb] describes the file to be deleted 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 

none 

ROUTINE VALUE: 

Success or worst error encountered. 
} SIDE EFFECTS: 

. 


none 


$dbgtrc_prefix (‘copy_output_delete> '); 
L 


OCAL 
status 
— h$a_gbl C $ k] : $ref_bblock, ! Point 
copy = exch$a_ excg$a_copy_work] : $ref_bblock, oin 
; : tiTb3 : Sref_bblock ! Filb 


out_filb = copy Ccopy$a_out_ 


S$block_check (2, .co co 558): 
Sblock~check (2, ‘out fin, filo, §59); 


: Call the file-specific delete routine 

if -out_filb Cfilb$a_delete_routine] NEQ 0 
(,out_filb Cfilb$a_delete_routine]) (.out_filb); 

RETURN; 

END; 


—~O 


r to work area 
or the output 


EX 
vO 


; 
EXCHSCOPY copy verb dispatch and misc routines 1§-Sep-1984 008188 ee Bliss-32 V4.0-742 Page a 
v04-000 copy_output_delete 4 22:04:5 EXCHNG.SRCJEXCCOPY.B32;1 (15) 


; Routine Size: 74 bytes, Routine Base: EXCHSCOPY_CODE + 0821 


003C 80008 -ENTRY COPY_OUTPUT_DELETE, Save R2,R3,R4,R5 : 11 
55 000000006 EF 9E 90G¢ MOVAB EXLHSUTIL_BCOCK_CHECK, R5 : | 
53 000000006 EF 4 Ci 9000 ADDL3 #4, EXCHSA_GBL, ~R3 > 1226) 
54 63 00000044 8F C1 00011 ADDL wos (R3), : 1207 
52 OOGCOOFF BF Bo 0019 MOVL 4 0991, R2 : 1231) 
51 022 F 3C 00020 MOVZWL #558, R1 : | 
50 63 00 00025 MOVL  (R3). RO : | 
65 16 00 8 JSB EXCHSUT IL BLOCK. CHECK : | 
53 64 DO 0002A MOVL (RG), R : 1232. 
52 O35BO0FA BF DO 900¢0 MOVL  #56295674, R2 : 
51 O22F 8F 3C 00034 MOVZWL #559, R1 : 
50 53 D0 00039 MOVL 3, RO ; 

65 16 0003¢ JSB EXCHSUTIL_BLOCK_CHECK : 
4E A’ D5 O003E TSTL 78(R3) : 1236 | 
06 13 00041 BEQL =s1$ : 
53 DD 00043 PUSHL 3 + 1238 

4E BS 01 FB 00045 CALLS #1, @78(R3) : 
04 00049 1$ RET > 1241) 
| 
| 


x 
ed 
oO 
8 
ct 
mn 
as 


< 
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copy_parse_cleanup -Sep-1984 22:04:5 EXCHNG.SRCJEXCCOPY.B32; 1 (16) 


t 1 5 09. ROUTINE copy_parse_cleanup : NOVALUE = %SBTTL ‘copy_parse_cleanup' 
44 


g 


ee ee ee ee ee ee 


x¢ 
04 
: 1161 1 : 
3 1108 1 ; 
; 116 1 ++ ‘ 
> 1164 1245 : ‘ 
: 1392 } : FUNCTIONAL DESCRIPTION: . 
3 116? : rk Clean up after a successful parse. Release the namb and other structures. ‘ 
> 1169 1250 ! INPUTS: ‘ 
: 1170 1251 : : 
3: 1171 1 26 : none ° 
; 1196 1 é : : 
3 117 1254 ' IMPLICIT INPUTS: ’ 
1138 158% 5 i $a_i b field i k | 
3 : copy$a_inp_nam € nN copy work area ; 
3: 1176 1 2§ : : 
3 1177 1258 ' OUTPUTS: ; 
3: 1178 1259 : : 
3 1179 1590 : none ’ 
3; 1180 1261 ! 3 
; ty 1596 ! IMPLICIT OUTPUTS: : 
3 11 ; 126 : : 
3; 118 1264 ! none ; 
3: 1184 1265 : | : 
; 1185 1266 ' ROUTINE VALUE: ‘ 
>; 1186 1¢0t : : 
> 1187 1268 : none : 
>; 1188 1269 2! 3 
3: 1189 1570 2 ! SIDE EFFECTS: F 
3: 1190 1271 ! 3 
3 1191 1s7¢ ‘ none : 
; Bb 127 len : 
S190 1558 5 sap fix ( l | 
: trce_prefix ("copy_parse_cleanup> '); : 
> 1195 1276 2 ithe — : | ; 
> 1196 1277 : 
3 1197 1278 2 BIND : ‘ 
3; 1198 1279 2 copy = exch$a_gbl Cexcg$a_copy work] : $ref_bblock, ! Pointer to work area é 
3 1199 1280 2 inp_filb = copy Ccopy$a_inp_filb : Sref_bblock, ! Filb for the input : 
; 1200 1281 2 inp_namb = copy co y5e_inp_nanb : $ref_bblock, ! Namb for the input : 
3 4 1e8¢ § ctx = inp_filb CfilbSa_context] : $Sref_bblock ! Volume specific context : 


Pad 
o 
= 


3 
copy verb dispatch and misc routines 1§-Se0-1984 90:64:28 AX-11 Bliss-32 V4.0-742 


04 copy_parse_cleanup -Sep-1984 04:5 EXCHNG.SRCJEXCCOPY.B32;1 
: } 4 ; Bs | If a context block is present release it 

3:1 1 if .ctx NEQ 0 

3 1 09 1 Ha THEN 

: ! oS : ss case -inp_namb Cnamb$b_vol_format] FROM volb$k_vfmt_lobound TO volb$k_vfmt_hibound OF 
; 1210 1290 volb$k_vfmt_dos11]_: exch$util_dosllctx_release (.ctx); 

; 1211 1291 volb$k_vfmt_filesi1] : exch$util_rmsb_release (.ctx); 

3; 3 \¢ 1 3 volb$k_vfmt rer : exch$util_rtlictx_release (.ctx); 

; \$7 1627 OUTRANGE , INRANGE $logic_check (0, Tfalse), 236); 

; 1215 1295 ‘ 

; isi$ 1538 Release the input namb 

: isis 1298 exch$util_namb_release (.inp_namb); 

3: 1219 1938 

; 1220 1300 ! Release the input filb 

: 1221 1301 : 

3 \sse 1306 exch$util_filb_release (.inp_filb); 

3 122 1303 2 

; 1224 1304 2 RETURN; 

; 1225 1305 1 END; 


000c 00000 .ENTRY COPY_PARSE_CLEANUP, Save R2,R3 
50 000000006 EF 04 C1 00002 ADDL3 #4, EXCHSATGBL, 
53 0 3C C1 OOOOA ADDL3 #60, (RO), ~R3 
52 60 00000040 BF C1 0000E ADDL3 #64. (RO). R2 
51 63 20 C1 00016 ADDL3 #32. (R3). R1 
61 D5 OOO1A TSTL (R15 
44 13 O001C BEQL 6$ 
50 62 DO OOO1E MOVL  (R2), RO 
03 00 A AO. 8F 00021 CASEB 122(R0), #0, #3 
0033 0028 001D 0008 00026 1$: WORD g3-1$.- 
4$-1$,- 
5$-1$ 
7E EC 8F 9A 00026 2$: MOVZBL #236, -(SP) 
01 DD 00032 PUSHL #1 
000000006 8F DD 00054 PUSHL HEXCHS BADLOGIC 
000000006 00 03 FB 909 A CALLS #3, LIBSSTOP 
1F 11 00041 RB 
61 DD 00043 3s: PUSHL (R11) 
000000006 EF 01 FB 00045 CALLS #1, EXCHSUTIL_DOS11CTX_RELEASE 
14 11 00040 BRB $ 
61 DD OO04E 4s: PUSHL (R11) 
000000006 EF 01 FB 0050 CALLS #1, EXCHSUTIL_RMSB_RELEASE 
09 11 0005 BRB 6$ 
61 DD 00059 5$: PUSHL  (R1) , 
000000006 EF 01 FB 00058 CALLS #1, EXCHSUTIL_RT11CTX_RELEASE 
62 DD 006 6$: PUSHL (R20) : 
000000006 EF 01 FB 00064 CALLS #1, EXCHSUTIL_NAMB_RELEASE 
63 DD 00068 PUSHL (R$) 
000000006 EF 01 FB 0006D CALLS #1, EXCHSUTIL_FIL8_RELEASE 
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F 3 | 

EXCH Y C verb dispatch and misc routines 16-Sep-1984 00:41: AX=11 Bi ise -32 v4.0 Page 41. 
ae copy _parse_ cleanup g- 900-1388 Borage EXCHNG. SRC} EXCCOPY. B53, 31 . a 
04 00074 RET : 1305, 

; Routine Size: 117 bytes, Routine Base: EXCHSCOPY_CODE + 0868 
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v04-000 copy_parse_next_input “Sep-19 04:5 EXCHNG.SRCJEXCCOPY.B832;1 (18) 
: 1227 1306 1 GLOBAL ROUTINE copy_parse_next_input = %SBTTL ‘copy_parse_next_input' 

3; 3 : 130 BEGIN 

3 1 1308 lee 

; 1250 1309 : 

3 ! 1 ! 19 FUNCTIONAL DESCRIPTION: 

; : ‘ : \¢ Fetch the next input parameter. Parse the filename and initialize the input file work region. 
; 1235 1314 ! INPUTS: 

3 1 1315 : 

; 3 1 18 . none 

3 1 $$ 131 : 

: : ip : M : IMPLICIT INPUTS: 

3 : ] 1359 Command qualifier value as returned from CLI$xxx routines. COPY command work area. 

3 124 1356 ' OUTPUTS: 

: 12446 132 : 

3; 1245 1324 ! none 

> 1246 1325 ! 

s \see 1326 ' IMPLICIT OUTPUTS: 

: 1248 135i e} 

3; 1249 1328 2! Command work area receives parse info 

; 1250 1329 2! 

: 1251 1330 § ' ROUTINE VALUE: 

: 1526 1331 : 

3; 125 1336 e: Success or worst error encountered. 

> 1254 1355 2! 

; TH 1334 2 ! SIDE EFFECTS: 

: 1256 1335 2! 

3; 1257 1336 2! none 

3; 1258 1337 2 !-- 
: 1259 1338 2 
: 1260 1339 2 S$dbgtrc_prefix ('copy_parse_next_input> '); 
3; 1261 1340 2 

° 1608 1341 2 LOCAL 

: 126 1366 2 status 

> 1264 1343 2 ; 

3: 1265 1344 2 

3: 1266 1345 § BIND , 

; 1267 1346 copy = exch$a_gbl Cexcg$a_ccpy work] : $ref_bblock, ! Pointer to work area 

: 1268 1347 inp_filb = copy Ccopy$a_inp_filb] : $ref_bblock, ! Filb for the input 

3: 1269 1348 inp_namb = copy [Ccopy$a_inp_namb] : Sref_bblock ! Namb for the input 

; 1570 1368 : 

3: 1271 1350 

: 1s76 1351 

: ist? 1326 Sblock_check (2, .copy, copy, 412); 

s 1$?? 1328 Fetch the filename and a pointer to a namb 

: 1277 1356 5 If NOT (status = exch$cmd_parse_filespec (ZASCID ‘INPUT’, copy CcopySq_ input _sticky_naned. 0, 
3; 1278 1357 3 copy Ccopy$q_input_filename], inp_namb) 

3; 1279 1328 THEN 

3 1280 1359 BEGIN 

: 1281 1360 IF .status NEQ 0 

; 1se6 1361 THEN : 

; 128 1362 $exch_signal (exch$_parseerr, 1, copy Ccopy$q_input_filename], .status); 


H 3 
EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 00:41: AX-11 Bliss-32 V4.0-742 Page 43 
yose000. copy porse next. input eet $0 rba:88 EXCHNG.SRCJEXCCOPY.832;1 . (18) 
1 $} RETURN .status; ! No more files to copy, or error in parse 
65 Sdebug_print_fao ("input parameter is ‘!AS', copy Ccopy$q_input_filename]); 
If if the input potentially describes multiple files, then set the bit 
ir, inP_namb Cnamb$v_more_files] OR .inp_namb Cnamb$v_wildcard] 
copy Ccopy$v_multiple_files] = true; 
If a foreign device is not mounted, then perform an implied sount 
iF yp’ ine=namb {namb$a_assoc_volb] EQL 0) 
(BEGIN 
BIND 
dev = inp_namb Cnamb$l_fabdev] : $bblock; 
gaer Cdev$v_for] OR (NOT~(.dev Cdev$v_mntJ)) 


AND 
(1, inp nem Cnamb$b_devclass] EQL dc$_disk) 


(.inp_namb Cnamb$b_devclass] EQL dc$_tape)) 


SER SS SEES P RIESE NEE 


ee ee ee ee ee ee ee eee 


3 1 

; 1 

; 1 

; 1 

3 1 

; 1 

; 1 

$ 1 

; 1 

3 1 

. 1 

3 1 

s 1 

; 1 4 

: 1 4 

3 ! 4 

: 

3 i3 13 4 

; 13 13 ; 

; 1306 13 

; 1307 13 THEN 

: 1308 13 BEGIN 

; 1309 13 ‘ ; 

; 1310 13 4 IF NOT (status = exch$moun_implied_mount (.inp_namb)) 

; $13 13 3 THEN 

3 \ 13 4 BEGIN . 

3; 131 13 4 exch$util_namb_release (.inp_namb); 

3 1314 13 4 RETURN .status; 

: 1315 13 H END; 
3; 1316 13 p 
3 s\5 i § 3 We should now have a valid volb, but we still should check 
3 319 1398 : Sblock_check (2, .inp_namb Cnamb$a_assoc_volb], volb, 413); 
: 1320 1399 3 

3 $54 1? ? 3 END; 
. 308 7 § $ Now copy the full name to the default name for proper stickiness | 
; oH abe 2 str$copy_dx (copy Ccopy$q_input_sticky_name], inp_namb Cnamb$q_fullname]); 
3 4 1406 : Allocate a file block to contain the input information 
3 44 1408 inp filb = exch$util_filb_allocate (); 

3 $a et exch$copy_namb_to_filb (.inp_namb, .inp_filb); ! Copy from the namb to the filb 
3 33 1411 $ ! Refetch the positional REWIND qualifier. DOS-11 clears this bit after rewinding the tape, therefore we mu 
3 $37 et : : set it once for each parameter | 
3 tH oie copy Ccopy$v_q_rewind) = cli$present (ZASCID ‘REWIND'); 
P | 
; 339 1416 ! We allow several “‘output’’ qualifiers to be on the input filespec. We interpret ‘‘output’’ quals on the outp | 
; 1338 1417 ! spec as applying to all output files, whereas ‘‘output’’ quals on the input spec apply only to files created | 
3 $20 + : this input spec. 
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EXCHSCOPY copy verb dispatch and misc routines Ib-se -1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 44 
v04-000 Copy parse_next. input ~8ep-19 4 $0 tOa.$e LEXCHNG: SRCJEXCCOPY.BS2¢1 (18) | 
> 1341 1420 IF NOT .copy Ccopy$v_type_command] | 
: 1348 1451 5 THEN sah opis nett 
: }Reg 1258 Tee Titb £E11bSv.0.best.t tiguous] Lis (ascid_b ) 
: np. v_q_best_try_contiguous =¢ resent (ascid_best_try); 
; 1345 1424 inp_filb EH tbgv-aceontTgua 3 = cliSpresent (ascid-contTguous); 
; : re] 16 5 inp_filb Cfilb$v_q_truncate = cli$present (ascid_truncate); 
: 1348 14 5 ! Get integer-valued ‘‘output’’ qualifiers, routine signals on errors. If the qualifier is not present, 0. 
: ; 20 2 3 } in the second parameter and -1 (success) is returned as the routine value. 
: 1351 1430 4 iF NOT (status = exch$cmd_cli_get_int (ascid_allocation, inp_filb Cfilb$ ion])) 
| 5 123) 3 hen u x _cli.get_integer (ascid_allocation, inp_filb Cfilb$l_q_allocation] | 
Be gt eT oe G | 
; co arse_cleanu 3 
3; 1355 1ee3 4 RETURN .status; : 
: 1356 1435 3 END; 
: 1320 \e38 ; Ne (status = exch$cmd_cli_get_integer (ascid_extension, inp_filb Cfilb$l_q_extension])) | 
3; 1359 1438 4 BEGIN 
3; 1360 1439 4 cop perse cleanup ; 
3; 1361 1440 & RE UR -Status; 
: 1369 1441 3 END; | 
3; 136 1208 § END; 
3 1364 144 
3; 1365 1444 2 RETURN .status; 
3 1366 1445 1 END; 


.PSECT EXCHSCOPY_PLIT,NOWRT,2 


00 00 00 54 55 50 4E 49 Q0100 P.ABF: .ASCII \INPUT\<0><0><0> F 
010£0005 00108 P.ABE: .LONG 17694725 : | 
00000000° 0010¢ .ADDRESS P.ABF ; 

00 00 44 4E 49 57 45 $2 00110 P.ABH: .ASCII] \REWIND\<0><0> : | 
010E0006 00118 P.ABG: .LONG 17694726 ; 
00000000" 0011C .ADDRESS P.ABH : 

.PSECT EXCHSCOPY_CODE.NOWRT,2 | 
O1FC 00000 .ENTRY COPY_PARSE_NEXT_INPUT, Save R2,R3,R4,R5,R6,~; 1306) 
58 00000000G EF 9E 00002 MOVAB EXCHSCMD_CLI_GET_INTEGER, R8 : 
57 000000006 EF 9E 00009 MOVAB EXCHSUTIC BLOCK_CHECK, R? ; 
56 000000006 00 9€ 00010 MOVAB CLISPRESERT, R6 : 
50 000000006 EF 04 C1 00017 ADDL3 #4, EXCHSA_GBL, RO > 1346) 
4 60 00 O001F MOVL : 1347, 
52 OO4COOFF BF b0 00 g MOVL #4985991, R2 > 1352 | 
51 019¢ F 3C 000 MOVZWL #412, R1 : | 
50 4 dO 00026 VL —sR4, RO ; 
67 16 00031 JSB EXCHSUTIL BLOCK CHECK ; | 
40 AG 9F 00033 PUSHAB 4(R4) : 1357. 

OC Ad 9F 000 PUSHAB 12(R4) ; 

7E D4 00039 CLRL = (SP) ; 

1c «6A4 «OOF 00038 PUSHAB 28(R4) : 1356 


7 
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copy verb dispatch and misc routines 1b $ep-1984 00:41:4 AX-11 Bliss -32 v4.0-742 Page 45 Ex¢ 
copy_parse_next_input 8ep-1984 98: :04:5 EXCHNG. $Rei EXCCOPY.B32;1 . (18) v04 
0000' CF OF 3 PUSHAB P.ABE : ; 1 
000000006 gf 5 F O03 CALLS #5, EXCHSCMD_PARSE_FILESPEC > 1357. 3] 
5 Q DO 0004 MOVL RO, STATUS : | 31 
18 i O04¢ BLBS STATUS, 1$ : | 31 
9 O04F BEQL 6$ : 1360. :] 
5 bb 0051 PUSHL $TATUS : 1362. : 1 
0c Ad 9F 00053 PUSHAB Ve Crd) : 31 
91 DD 0036 PUSHL # : ; 1 
000000006 8F DD 0005 PUSHL #EXCHS$ PARSEERR : | 31 
000000006 00 04 FB 003 CALLS #4, LIBSSIGNAL : :] 
43 11 0006 BRB 6$ : 1363. ; 1 
53 40 Ad p69 0067 1$ MOVL  64(R4), R3 : 1369) 31 
6D A3 0068 TSTB —-: 109 (R35 : 31 
04 19 O06E BLSS = -2$ : 37 
04 6c AB £9 000 BLBC 108(R3), 3$ : | 31 
34 AG 01 88 00074 38: BISB2 52 (R4) + 1371) 31 
74 A3 D5 00078 3$: TSTL =: 116 (R3) ; 1375 | 31 
‘6 is 00078 BNEQ 8$ : 5s 1 
05 6B A3 €E8 00070 BLBS VO7CR9) . 4$ 3 1380) : 1 
39 6A AB 03 £0 00081 BBS #3, 106(R3), 8$ : : 1 
01 78 AS 91 00086 4$ CMPBs«a120(R3), #1 : 1383) 71 
06 13 O0008A BEQL «6sOS$ : | 31 
02 78 a3 91 0008C CMPB 120(R3), #2 : 1385 : 1 
2D 12 000 BNEQ 8$ : 4 
53 DD 00092 5$: PUSHL R3 : 1389) 71 
000000006 EF 01 FB 00094 CALLS #1, EXCHSMOUN_IMPLIED_MOUNT : 31 
55 50 pO 00098 MOVL RO, STATUS : > 
0c 55 £8 O009E BLBS STATUS, 7$ : 31 
53 DD OO0A1 PUSHL R3 : 1392) : 1 
000000006 EF 01 FB 000A5 CALLS #1, EXCHSUTIL_NAMB_RELEASE : : 1 
0095 31 OOOAA 6$: BRW 10$ : 1393 31 
52 041B00F3 BF b0 OOOAD 7$: MOVL were eRd R2 : 1398 31 
51 019) 8F 3C 000B4 MOVZWL #413, R1 : | 31 
50 74 A3 DO 00089 MOVL 116(R3) : | 31 
67 16 OO00BD JSB EXCHSUT ri® RBLOCK. CHECK : :1 
18 A3 9F OOOBF 8s PUSHAB 24 (RS) : 1404 | . 
1¢ A& OF 000C PUSHAB 28(R4) ; 31 
000000006 02 FB 000C CALLS a2, STRSCOPY_DX : 31 
000000006 00 FB BOoce CALLS #0, EXCHSUTIC_FILB_ALLOCATE 3 1408 | 3 1 
3¢ 50 D0 9000 MOVL RO, 60(R4) : 31 
3c 60 AG-Ss«iO 00007 MOVL  60(R4), R2 ; 1409 31 
2g DD 00008 PUSHL Re : | 31 
53 DD 00000 PUSHL R : 31 
“ 02 FB ODF CALLS #2, EXCHSCOPY_NAMB_TO_FILB : 31 
C900" CF 9F 000E4 PUSHAB P.ABG + 1414 
01 FB OO0E8 CALLS #i, ¢ ISPRESENT : 
50 FO OO0EB INSV RO. #0, #1, 49(R4) : 
01 E 000F 1 5 #1. 52¢R4). 10 ; 1420, 
0000" CF SF O00F6 PUSHAB ASCID Best TRY + 1423 | 
gi FB OOFA CALLS #1, cri PRESENT ; 
0 F OOF 0° #0, #1, 44(R ; | 
0000' CF 9F 0010 PUSHAB ASCID_ CONTIGUOUS > 1426 | 
gi FB 010 CALLS #1, CT ISPRESENT F | 
0 FO OO10A INSV RO, #1, #1, 44(R2) : 
0000" CF 9F 00110 PUSHAB AsCiD TRUNCATE > 1425. 
gi FB 0114 CALLS - ISPRESENT ; | 
0 FO 00117 NSV » #2, #1, 44(R2 ; 
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copy_parse_next_input Sep-1984 04:5 EXCHNG.SRCJEXCCOPY.832;1 (18) 
20 A2 9F 90110 PUSHAB 45(R2) ; 1430) 
0000' CF 9F 00120 PUSHAB ASCID ALLOCATION : | 
$8 F 124 CALLS #2, EXCHSCMD_CLI_GET_INTEGER : 
DO 00127 OVL R STATUS ; 
10 12A BLBC status, $ : | 
A2 OF 91 D PUSHAB 49(R2) t 1436. 
0000' ¢F 9F 00130 PUSHAB ASCID EXTENSION : 
$8 F 4 4 CALLS #2, ERXCHSCMD_CL1_GET_INTEGER : | 
D 137 MOVL RO, STATUS ; 

05 t8 0013A BLBS STATUS, 10$ : 
FE49 ct 00 FB 00130 9$: CALLS #0, COPY_PARSE_CLEANUP t 1439 
0 5 p O08 10$: MOVL STATUS, RO : 1444 
4 0014 RET + 1445 

; Routine Size: ytes, outine Base: XCH wa + 
Routine Si 326 b Routine 6 EXCHSCOPY_CODE + O8E0 
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v04-000 exch$copy_type -Sep-1984 22:04:5 EXCHNG.SRCJEXCCOPY.832;1 (19) 


1446 1 GLOBAL ROUTINE exch$copy_type = %SBTTL ‘exch$copy_type’ 
1709 pee py.typ Py.typ 


3: 1368 

; 1369 BE 

3; 1370 1448 l++ 

; 1371 1449 ' 

: } ts 1620 FUNCTIONAL DESCRIPTION: 

s \ ee 1426 Action routine for the type verb, parses and performs main control functions for type 
3; 1376 1454 ! INPUTS: 

: 1377 1455 ! 

; 1378 128 ! none 

; it 14 13¢ ! 

3 1350 1628 IMPLICIT INPUTS: 

3 1386 1099 Command parameters and qualifiers as returned from CLI$ routines. Global environment ref'd by exch$ 
3 1384 1006 § ' QUTPUTS: 

4 1352 146 e! 

3; 1386 1464 2! none 

: 1387 1465 2! 

; 1388 1466 5 ' IMPLICIT OUTPUTS: 

: 1389 1467 ! 

3; 1390 1468 2! none 

3; 1391 1469 2! 

: 1392 1470 § ' ROUTINE VALUE: 

3; 1393 1471 ! 

3 1394 1472 5 ! Success or worst error encountered. 

3: 1395 1473 ! 

3: 1396 1474 2 ! SIDE EFFECTS: 

: 1397 1475 2! 

3 1398 1476 2! Files may be created. 

3; 1399 1477 2 !-- 

a0 1279 5 $db His Vanes. eieen % 

3 gtrc_prefix (*copy_type> '); 

; es 1480 2 

3: 140 1481 2 LOCAL : 

3 1404 1482 2 copy : $ref_bblock ! Pointer to work area 
> 1405 1483 : inp_filb : Sref_bblock, 

3: 1406 1484 status 

3: 1407 1485 2 ; 

: 1408 1486 2 

3 1409 1487 2 Aen» : 

3: 1410 1488 ' Allocate and/or initialize the work area 

3: 1411 1489 ‘ 

3 Wels 1490 copy_init (); 

> 141 1491 ; Be 
: tate 1438 : Get pointers that we need. Have to wait until work area allocated by init call 
5 1416 1494 copy = .exch$a_gbl Cexcg$a_copy_work); ! Pointer to work area 
3 ile 1432 copy Ccopy$v_type_command] = true; 

3 Ht re + Init the name used for the input file default 

3 1421 1499 str$copy_dx (copy Ccopy$q_input_sticky_name], ZASCID *.LIS"); 
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EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 00:41:4 AX=-11 Bliss-32 V4.0-742 Page 48 om 
v04-0 exchScopy.type ee aE: YEXCHNG SRE EXCCOPY.B32;1 . (20) | 


$Sexch_signal (exch$_typed, 3, .inp_filb Cfilb$l_result_name_len], inp_filb Cfilb$t_result_name], 


copy_input_close (); 
atus = ss$ normal; 
{f :exchSe_gbl Cexcg$v_control_c] THEN EXITLOOP; 


' Release namb, clean up after parse 


co arse_cleanup (); } 
iF -exch$a7gbl Lexcgsv_controt_c) THEN EXITLOOP; 


; 1; ; 1331 H Loop through the List of input file specifications. Errors will be signalled. 
3; 1425 1 ¢ status = rms$_fnf; 
3 1? 3 138? WHILE copy _parse_next_input () ! Get next input file parameter 
: 1428 1208 BEGIN 
: 1429 1506 
3 16 9 344 inp_filb = .copy Ccopy$a_inp_filb]; ! The input filb 
: 14 1509 WHILE copy_input_open () ! Open the input file, loop for wildcards 
: 1035 1310 oo | 
; 14% 1511 4 BEGIN 
: 1435 1216 4 REGISTER 

15 1636 1513 4 rec_count; 
3: 1437 1514 4 
: 1438 1515 4 ! Print the file name if file List or wildcards 
; 1439 1516 4 : 
3; 1440 1517 4 IF .copy Ccopy$v_multiple_files] 
3; 1441 1518 4 THEN 
144 1519 5 BEGIN 
> 144 1520 5 REGISTER | 
3 1444 1521 5 fao_desc = 0 : $ref_bblock; 
3 1445 1356 5 copy_type_print (0 3 : 
> 1446 1523 4 fao_desc = exch$util_fao_buffer (ZASCID ‘File ‘IAF’, im ped, | 
3 1447 1524 5 ° " Lb Cfilb$l_result_name_len], inp_filb Cfilb$t_result_name]); 
3 1448 1525 5 copy_type_print (.fao_ desc [dsc$w_length], .fao_desc [Edsc$a_pointer]); 
3 1449 1526 5 copy. type_print (0, OF; 
3; 1450 1527 4 END; 
; 1451 1508 4 | 
: 1026 1368 4 ! While we can get records print them on sys$output | 
3; 145 1530 4 : 
: 1454 1531 4 rec_count = 0; 
> 1455 1532 4 WHICE (.inp_filb Cfilb$a_get_routine]) (.inp_filb) 
3 1456 1533 4 dO 
3; 1457 1534 5 BEGIN 
3 1458 1535 5 rec_count = .rec_count + 1; | 
3 145 1536 5 copy_type_print T.inp_filb Cfilb$l_record_len], .inp_filb Cfilb$a_record]); | 
3: 14 1537 5 IF .exch$a_gbl Cexcg$v_control_c] THEN EXITLOOP; T If we have Seen control/c, exit the loop 
3: 146 1538 4 END; 
5 146 1539 4 
3: 146 1540 4 IF .exch$a_gbl Cexcg$v_control_c] ! If control/c, tell them about it 
3; 14 1541 4 THEN 
3: 14 1346 4 Sexch_signal (Sinfo_stat_copy (exch$_canceled)) 
31 1543 4 ELSE IF .topy Ccopy$v_q_log) T If /LOG, then display file name and count 
3; 7 1544 4 THEN 
s ¥ 1545 4 
, 3 1346 & 
s 1 1547 4 
s 3 1548 4 
s 1 1549 4 
s 7 1550 
; 7 1551 
: % 1336 
| 15 
3 1 1554 
: 1 1555 
: 1 1556 


RETURN .status; 
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XCHSCOPY copy verb dispatch and misc routines 16-Sep-19 4 99: 141:4 AX-11 Bliss-32 V4.0-742 Page 50 EXx¢ 
04-000 exch$copy_type -Sep-1984 22:04:5 EXCHNG.SRCJEXCCOPY.832;1 (20) 


< 
Oo 
~ 


50 03 00 3 FO 0009C¢ INSV #3, #0, #3, STATUS2 : 
0 DD 000A1 PUSHL  STATU : 
68 1 FB 6 A3 CALLS #1, LIBSSIGNAL : 
18 11 Ab BRB : 
13 30 AG g E1 OOOA8 7$: BBC 48(COPY), 8$ + 1543 
bp OOAD PUSHL Ret COUNT + 1545 
2 A F OOOAF PUSHAB : CINP_F ILB) : 
A A’ DD 008 PUSHL 58(INP~FILB) : 
DD 8 PUSHI. ‘ : 
000000006 8F DD 0008 PUSHL #EXCHS TYPED : 
68 5 FB 0O0BD CALLS LIBS$S : 
FA7B cr 99 f 9 CO 8$: CALLS 40. tip INPUT. CLOSE + 1547 
5 1D ¢ MOVL A : 1548 
03 00 6 5 00¢ BLBS SEKCHSA, GBL, 9$ : 1549 
FF7A 31 OO0CC BRW : 
FD71—sCF 00 FB OOCF 9$: CALLS #0, COPY_PARSE_CLEANUP : 155 
03 00 86 ‘ 00D4 BLBS @EXCHSA_GBL, 10$ : 155 
FF5SF 31 00008 BRW : 
50 DO 000DB 10$: MOVL STATUS, RO : 155 
04 O00DE RET : 155 


; Routine Size: 223 bytes, Routine Base: EXCHSCOPY_CODE + 0A26 
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copy_type_print (len, rec) -Sep-1984 22:04:5 EXCHNG.SRCJEXCCOPY.B32;1 (21) 


1388 1 sc0nt ROUTINE copy_type_print (len, rec : $ref_bvector) : NOVALUE = ZSBTTL ‘copy_type_print (len, rec)’ 
le¢ 


i 
FUNCTIONAL DESCRIPTION: 
Reformats (non-format control chars replaced by “char) and prints the record 
INPUTS: 


Len = Length of the record to be reformatted 
rec = address of the record 


IMPLICIT INPUTS: 
output rab in global storage 


00 Oc W00dD0D0D 


SSSERGPELLESELEGEES 8 


' OUTPUTS: | 
01 none 
4 
R ! IMPLICIT OUTPUTS: 
05 none 
06 | 
ROUTINE VALUE: 
0 none 


SIDE EFFECTS: 
output on SYSSOUTPUT 


PUPP PVP SPAS SII EBS ES BS BB EE EE 


LA. AAS POPORIPIPUNINPNIDYD OP? OO ne es ee 


$dbgtrc_prefix ("copy_type_print> '); 
BIND 
copy = exch$a_gbl Coxcgsa. copy “tab : $ref_bblock, ! Pointer to work area 


| 
| 
= exch$a_gbl fexcg a_Sysout_fab] : $ref_bblock, ! Pointer to output fab 
rab = exch$a_gbi Cexcg$a_sysout_rab] : $ref_bblock ! Pointer to output rab | 

| 


DOO 000 OO OW 0009000900 O08 SIN INI NI SIN NINA AA AAA AAAOU 


Ss s wl ah ab sb Ab Ab Ab Ab Ab Ab Ab Ad ab dh Ab db Ab Ad ab eh dh dh eh eh dh sh bd ah al al alah al ab ab ald) 
oO 


WN —OOONO UE WN “OOONOUE WN OO 0@On 
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5 
6 ! Define a table of substitute strings for control characters. We define a byte vector of offsets to 
6 ! ASCIC substitute strings. A zero in the table means no substitution, an non-zero is the offset from 
e the base of the substitute strings. 
6 BIND 
eRe table_base = UPLIT BYTE (0); 
$09 table : YECTOR (256, BYTE] PRESET ( | 
608 %x'00'] = (UPLIT BYTE (Zascic ‘NUL") = table_base), 
3 609 Zx'O1') = (CUPLIT BYTE (Zascic ‘SOH') - table_base), 
534 610 Zx'O2'] = (CUPLIT BYTE (Zascic ‘STX") = table_base), 
535 611 %x'03'] = (CUPLIT BYTE (Zascic ‘ETX*) = table_base), 
a98 oi¢ Z%x'04'] = (UPLIT BYTE (Zascic ‘EOT') = table base), 
5 61 Zx'OS5'] = (UPLIT BYTE (Zascic ‘ENQ') = table_base), 
538 614 %x'06'] = (UPLIT BYTE (Zascic ‘ACK') = table_base), 
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copy_type_print (len, rec) -Sep-1984 22:04:5 EXCHNG.SRCJEXCCOPY.B32;1 (21) | 


Make sure that all of the strings total fewer than 256 bytes, so that byte offsets will work. Note 


7 1 

5 1674 ! that BLISS stores the above table Like <table-base><ascic-strings><table><table-top> so that we must 

: 1675 ! include the length of the table itself. Also test the assumption about storage format. (We have 

; 1676 } defined both OWN and PLIT to the same psect.) 

3 L 1678 $logic_check (0, ((table_top-table_base) LEQ 511), 309); 

3 assumption 509 verified Onin compilation 

3 L 1679 2 Slogig check (0, ((table_base LSSA table) AND (table LSSA table_top)), 318); 
3 Ss gumpy fon 18 verified during compilation 
3 168) LOCAL ¥ i 
3 16 § buf : $bvector [filb$s_record_buffert5], ! Worst case is buffer of deletes, ‘<DEL><DEL>... 

: 168 buflen, 

: 1684 bufptr, 

; 1685 status 
: 1686 3 | 
; 1687 
; 1688 § REGISTER : 

; 1689 ip, ! Input pointer 
3 1690 op; ' Output pointer 
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copy_type_print (len, rec) Sep-1984 04: EXCHNG.SRCJEXCCOPY.B32;1 


3 1616 1691 ROUTINE put (len, buf) : NOVALUE = 

3; 161 169 BEGIN 

> 1618 169 

; 1619 1694 4 

; 1620 1695 : Local routine to put a record. If the put fails because the record is too long, we will shorten the 
3; 1621 1998 ' request and try again. 

; 16 ¢ 169 le 

; 16 1698 

3; 1624 1979 LOCAL 

; 1625 1700 status; 

3: 1626 1701 

3; 1627 1706 BIND 

; 1628 17 copy = exch$a_gbl CoxcgSa copy work] : $ref_bblock, ! Pointer to work area 

: 1629 1704 fab = exch$a_9bl Cexcg$a_Sysouft_fab] : $ref=bblock, ! Pointer to output fab 
3 MS : 1782 rab = exch$a_gbl Cexcg$a_sysout_rab $ref_bblock ! Pointer to output rab 
; 16 § 1707 

3; 163 1708 rab Crab$w_rsz] = .len; 

> 1634 1709 rab Crab$l_rbf] = .buf; 

: 1635 1710 

>; 1636 1711 4 IF _NOT (status = $put (rab = .rab)) 

3 1637 fat 3 THEN 

: 1638 1713 4 BEGIN 

3; 1639 1714 4 

3 H+ 04 Ha ? : If the error is due to a record which was too long, shorten the request and try again 
; 1os6 1717 5 IF ( 

3 164 1718 6 (.copy Ccopy$l_max_rec] GTRU 80) ! we aren't pretty short already 
3 1644 1719 5 AND 

3 1645 1720 6 ( 

3: 1646 1721 7 (.status EQL RMS$_RSZ) ! error is rec too big (get from tape) 
: 1647 1722 6 OR 

3; 1648 1723 7 ; 

3; 1649 1724 8 (.status EQL RMS$_SYS) ! terminal maxbuf error 

3; 1650 1725 7? AND 

3 1651 1726 8 (.rab Crab$l_stv] EQL SS$_EXQUOTA) 

3 1652 1727 7 

3; 16535 1728 6 ) 

3: 1654 1729 5 

: 1655 1730 4 HEN 

3; 1656 1731 5 BEGIN - 

3; 1657 1732 5 copy Ccopy$l_max_rec] = (.len * 90) / 100; ! try with rec 90% as long 
: 1658 1733 5 put (.copy CCopy$l_max_rec], .buf); 

3; 1659 vee 5 ETURN; 

: 1660 1735 5 END 

3 1661 1736 4 EL : 

: 1662 1737 4 exch$util_file_error (exch$_writeerr, .status, .fab, .rab Crab$l_stv]); 
3 1663 1738 3 END; 

3 1664 1739 ; 

; 1665 1740 RETURN; 

: 1666 1741 2 END; 


.PSECT EXCHSCOPY_PLIT,NOWRT,2 
00 00140 P.ABM: .BYTE 0 
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EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 00:41:4 AX-11 Bliss-32 V4.0-742 Page 58. 
v04-000 copy .type.print (len, rec) eT 30 arg LEXCHNG SRe EXCCOPY.B32;1 . (23), 
3 1 174 ip = .rec; ! Input buffer pointer 
: 1669 174 op = buf; . 4 
3; 1670 1744 
> 1671 1745 DECR count FROM .len-1 TO 0 ! Convert the controls 
8 lore bs | dO 
3; 167 174 BEGIN 
> 1674 1008 REGISTER 
3; 1675 174 char, ' Local character variable 
3 1676 1720 string : $ref_bvector; ! Pointer to string for expansion 
; 1678 1738 char = CHSRCHAR_A (ip); !' Get next character 
: 1679 172 IF (string = .table [.char]) NEQ 0 ! See if the substitution offset is zero 
; 1680 1754 THEN 
; 1681 1755 4 BEGIN 
3 1086 1756 4 REGISTER 
; 168 1757 & len; 
> 1684 1758 4 string = .string + table_base; ! Turn the offset into an address 
3; 1685 1759 & CHSWCHAR_A ('<'. op); ' Start with the open bracket 
; 1686 1760 4 len = .string (0); . ! Move the Length to a register 
3; 1687 1761 4 CHSMOVE (.len, string C1], .op); ! Copy the ASCIC strin 
; 1688 1766 4 op = ,op+.len; ! Move the output pointer 
; 1689 1765 4 CHSWCHAR_A ('>', op); ! And finish with the close bracket 
: 1690 1764 4 END ; 
3; 1691 1765 3 ELSE ! Offset is zero, just move the char 
: 1698 1766 3 CHSWCHAR_A (.char, op); | 
; 169 Wer 3 D; 
> 1694 1768 
3 1695 1769 2 ! Start with the address and length of the record 
3: 1696 1770 2! 
3; 1697 1771 2 buflen = .op - buf; 
3; 1698 1778 § bufptr = buf; 
: 1699 177 ; 
3 1708 HA § Print the record. We must allow for a segmented put if the size of the record is too big for the output 4 
F 1706 1776 dO 
3; 170 1777 BEGIN 
3 1704 1778 put (MINU (.buflen, .copy Ccopy$l_nax reg]. -bufptr); | 
: 1705 1779 uflen = .buflen - .copy Ccopy$l_max_recJ; 
3: 1706 1780 bufptr = .bufptr + .copy Ccopy$l_max_rec]; 
3; 1707 1781 END 
3; 1708 1786 § UNTIL .buflen LEQ 0; 
: 1709 178 
3; 1710 1784 2 RETURN; 
3 1711 1785 1 END; 


O7FC 00000 ENTRY copy TYPE_PRINT, Save R2,R3.R4,R5,R6,R7.R8,-; 1558 | 
SE F600 CE i 00002 MOVAB -2560(SP), SP : 
50 000000006 EF DO 00007 MOVL EXCHSA_GBL, RO > 1595 
SA 04 AO 9E 0000 MOVAB 4(RO),"R1 : 
56 08 aC 00 0001 MOVL REC, IP > 174 
57 6— 9E 0001 MOVAB BUF. OP : 174 
59 04 AC DO 00019 MOVL LEN, COUNT > 1745 


Oe ee 7 


kK 4 
EXCHSCOPY copy verb dispatch and misc routines 16-Sep-1984 241:4 AX-11 Bliss-32 V4.0-742 Pg 9) 
v04-000 copy_type_print (len, rec) ~Sep-19 4 33 Fbai88 LEXCHNG. SROJEXC COPY .B32°1 903) 
9 11 1D BRB 4$ : 
50 § 9A Nitti 1$: MOVZBL (IP)+, CHAR : 1758, 
1 0000"CF4 7 00 : MOVZBL TABLEC CHARI, STRING + 175 
51 0000'CF41 3 09 A MOVAB TABLE BASECSTRING], STRING + 1758 
87 3c 690 000 9 MOVB #60, TOP)+ : 1759 
& 61 9a 000 MOVZBL (STRING), LEN + 1760 
67 01 Al 8 28 00036 MOVC3 LEN, 1(SfRING), (OP) + 1761 
57 3 £0 0038 ADDL2 LEN, : 1768 
67 . 0 0003E MOVE #62. (OP) + 176 
p 11 00041 BRB : 1766 
67 ; 90 0045 8: MOVB CHAR, (OP) : 
57 06 46 $: INCL P + 1763 
D4 59 F4 00048 4$: SOBGEQ COUNT, 1$ + 1745 
50 6 Hi 0048 MOV UF, + 1771 
53 57 C3 0004 SUBL3 RO, OP, BUFLEN : 
54 gE 9E 0005 MOVAB BUF, BUFPTR + 1772 
4 DD 00055 Ss: PUSHL  BUFPTR : 1778 
52 6A DO 00057 MOVL (R10), R2 : 
53 DD OO05A PUSHL LEN : 
38 A 6E D1 0005¢ MPL (SP), 56(R2) : 
04 1B 00060 BLEQU : 
6E 38 AZ DO 00062 OVL  56(R2), (SP) : 
FFOE CF 02 FB 00066 6$: CALLS #2, PUT ; 
53 38 «Ad C2 00068 SUBL2 56(R2), BUFLEN : 1779 
54 38 =6A2 «CO 0006F ADDL2 56(R2); BUFPTR + 1780 
53 D5 00073 TSTL  BUFLEN + 1782) 
DE 14 00075 BGTR 5$ ; 
04 00077 RET : 1785 


} 
; Routine Size: 120 bytes, | Routine Base: EXCHSCOPY_CODE + OBBC 
| 
} 


; ee Time: OF :¢n-6 
3; Lines/CPU Min: 
3; Lexemes/CPU-Min: 20110 

3 pomory Used: 5367 pages 
; Compilation Complete 


EXCH copy verb dispatch and arse routines 
v04-000 copy .type print (len, rec) 

3; 1713 1786 1 END 

3 1714 1787 0 ELUDOM 


PSECT SUMMARY 


; Btaes ae 3076 coge * 813 data bytes 


AX-11 Bliss-32 V4.0-742 
EXCHNG.SRCJEXCCOPY.B32;1 


-EXTRN LIBSSIGNAL, LIBS$STOP 


: Name Bytes Attributes 

:  EXCHSCOPY J ts 813 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, paleo Trg b ath ts 

: EXCHSCOPY_CODE 3076 NOVEC,NOWRT, » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

‘PSO Ne es ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 22 0 1000 00:01.9 

> ~$255$DUA28: CEXCHNG.OBJJEXCLIB.L32;1 1151 147 12 79 00:01.4 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD. iWITIAL,OPTIMIZE)/LIS=LIS$:EXCCOPY/OBJ=OBJ$:EXCCOPY MSRC$:EXCCOPY/UPDATE=(ENH$:EXCCOPY) 
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